Drift/ /tfrirts A'ss c- 


Final Report 

SOFTWARE DEVELOPMENT TO SUPPORT 
SENSOR CONTROL OF ROBOT ARC WELDING 

16 April 1985 to 8 May 1986 


Contract No. NAS8-36460 



ENGINEERING CENTER FOR 
AUTOMATED 

MANUFACTURING TECHNOLOGY 

(NASA-178865) SCFTW ARE DEVELOPMENT TO N86-28434 

SUPPORT SENSOR CCN1RCI OF RCEC1 ARC WELDING 
Final Report, 16 Apr. 1985 - 8 May 1986 

(Clemson Univ.) 173 p HC AC8/MF A01 Unclas 

CSCL 13H G3/37 43502 



CLEMSON 

TJNTTTEFlSITTr 


College of Engineering 

Clemson, South Carolina 29631 


CAM-TR-86-120 


Final Report 

SOFTWARE DEVELOPMENT TO SUPPORT 
SENSOR CONTROL OF ROBOT ARC WELDING 

16 April 1985 to 8 May 1986 

Contract No. NAS8-36460 


Prepared for: 

George C. Marshall Space Flight Center 
Marshall Space Flight Center, Alabama 35812 


8 May 1986 


By 

Fred R. Sias, Jr. 


Department of Electrical and Computer Engineering 

via 

Engineering Center for Automated Manufacturing Technology 

CLEMSON UNIVERSITY 
Clemson, South Carolina 29634-0915 


1 


Contents 


SOFTWARE DEVELOPMENT TO SUPPORT SENSOR CONTROL OF ROBOT ARC WELDING 

Abstract 3 

1.0 Introduction 4 

2.0 Objectives 5 

2.1 Objectives 5 

2.2 Approach 5 

3.0 Software Description 7 

3.1 Introduction 7 

3.2 Software Overview 8 

3.3 Software Description 8 

4.0 Description of MINC-23 Interface 15 

4.1 MINC Interface Modules 15 

4.2 The MINC-Robot Interface 15 

5.0 Description of Robot Interface 18 

5.1 CYR0 750 Hardware Interface 18 

5.2 Parallel Interface Handshaking Protocol 18 

5.3 Message Protocol 19 

5.4 Message Types 20 

6.0 Robot Welding Monitor 25 

6.1 Overview 25 

6.2 Problem statement 26 

6.3 Approach 26 

7.0 Seam-tracking Monitor 27 

7.1 Overview 27 

7.2 Problem Statement 27 

7.3 Proposed Approach ' 27 

8.0 Conversion to RSX-11M 29 

8.1 Objective 29 

8.2 Features and Limitations of RT-11 29 

8.3 The RSX-11M Operating System 29 

8.4 Assessment of Operating Systems 31 

8.5 Conversion of CYR02 32 

9.0 Conclusions and Recommendations 33 

9.1 Conclusions 33 

9.2 Recommendations 33 

APPENDIX 34 

A. CYR02 Operating Manual 35 

B. Description of External Device Interface Messages 42 

C. CYR02 Software Flow Diagrams 55 

C. CYR02 Program Listings 78 


2 


ABSTRACT 


SOFTWARE DEVELOPMENT TO SUPPORT SENSOR CONTROL OF ROBOT ARC WELDING 


Robots are usually used to perform high-volume, repetitive manufacturing 
tasks. The application of robots in space technology is more associated 
with low-volume, high-quality-oriented manufacturing. The primary motiva- 
tion for this effort is to raise the quality and consistancy of certain Gas 
Tungsten Arc Welds (GTAW) on the Space Shuttle Main Engine (SSME) that are 
too complex geometrically for conventional automation and are currently 
done by hand. 

Robot welding minimizes the human variability introduced by manual welding 
methods and improves the overall quality control. In addition, automatic 
welding of complex shapes can be improved by the use of a positioner table 
that permits a coordinated movement of the part in relation to the welding 
torch. Such "coordinated" motion between a robot and a two-axis positioner 
table is complicated to program and the current on-line methods are 
awkward. The application of robots in low-volume applications requires 
improvement in the methods for creating robot control programs. 

The use of seam-tracking methods reduces the accuracy with which the seam 
track must be specified. Instead of using the "teach-and-store" method, it 
is now possible to create a program automatically from dimensions derived 
from original Computer Aided Design (CAD) files. A minor mis-allignment of 
the welding torch due to path approximations derived from design files or 
metal movement during the weld will be compensated for by the seam- tracking 
system. 

This report documents the development of software for a Digital Equipment 
Corporation MINC-23 Laboratory Computer to provide functions of a "workcell 
host" computer for SSME robotic welding. Routines were written to transfer 
robot programs between the MINC and an Advanced Robotics Cyro 750 welding 
robot. Other routines provide advanced program editing features while 
additional software allows communication with a remote CAD system. Access 
to special robot functions were provided to allow advanced control of weld 
seam tracking and process control for future development programs. 
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1.0 INTRODUCTION 


Robots are usualLy used to perform high-voLume repetitive manufacturing 
tasks. The application of robots in space technology is more associated 
with low-volume, high-quality oriented manufacturing. Robot welding with 
automatic seam tracking minimizes the human variability introduced by 
manual welding methods and improves the overall quality control. However, 
the application of robots in low-volume applications requires improvement 
in the methods for creating robot control programs. 

Normally robot programs are created in a "teach pendant" mode whereby the 
robot is manually moved through a sequence of movements. Each successive 
movement is "programmed" by storing the coordinates of the endpoint of the 
movement along with move velocity and other parameters that may be required 
to execute a particular manufacturing task. The results of a numerical 
control step programmed by the "teach" process is converted in the CYRO 750 
into a program step in a numerical control "language" similar to standard 
machine tool languages such as MRP. A number of subprograms can be 
sequenced together to comprise a complete robot task. 

In the case of the CYRO 750 robot attached to the MINC-23, the overall 
robot task is to perform welds on the space shuttle main engine (SSME). 
The welding tasks on the SSME consist of a large number of small complex 
welds that are currently performed manually due to the complexity of the 
welds. Replacing the manual welds with robot welds is not a simple task. 

The conventional robot programming task described above is called "on- 
line" programming. The robot itself must be dedicated to the programming 
task which would be particularly time consuming due to the complexity of 
the weld paths. Weld-path programming will generally take more time than 
the actual welding process. In addition, automatic welding of complex 
shapes requires the use of a positioner table that permits a coordinated 
movement of the part in relation to the welding torch. For example, in 
welding a cylindrical part it will be necessary to rotate the part rather 
than simply track the weld so that the weld puddle will remain in a proper 
orientation relative to gravitational forces on the puddle. Such 
"coordinated" motion between a robot and a two-axis positioner table is 
complicated to program at best and the current on-line methods are awkward. 

The use of seam-tracking methods reduces the accuracy with which the seam 
track must be specified. Instead of using the "teach-and-store" method 
described above, it is now possible to create a program automatically from 
dimensions derived from original computer based design (CAD) files. A 
specified mis-alignment of the welding torch due to path approximations 
derived from design files or metal movement during the weld will be compen- 
sated for by the seam-tracking system. 

The development of N/C programs for the CYRO 750 robot is further compli- 
cated by the fact that the dimensional information is contained in files on 
a separate Computer Aided Design (CAD) system and the process of converting 
design files to a robot program is much too complicated to be handled by 
the small on-line MINC-23 computer attached to the robot. Communication 
links between two or more computers are necessary and extensive software 
for automated program creation must be developed. 
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2.0 OBJECTIVES 


2.1 OBJECTIVES 

Based on the discussion presented in the Introduction, it is possible to 
present the overall problem as follows: How to produce programs for wel- 
ding robots while minimizing interference with research or production 
operations. 

The objectives of this research are twofold. First, a number of software 
modules have been written to facilitate the creation of Numerical Control 
programs for the Advanced Robotics Cyro 750 Robot. Included are routines 
for transferring N/C programs back and forth between the Robot and the 
MINC-23 computer for storage and retrieval on MINC diskettes. In addition, 
software has been developed to aid in the off-line programming and editing 
of N/C programs. 

The second area of research are studies designed to aid in planning future 
applications of the MINC computer. Application areas include communication 
with a Computer Aided Design (CAD) system so that dimensional information 
can be passed to the MINC to facilitate automatic development of N/C pro- 
grams. In addition, further discussions are directed at defining the 
problems that must be solved to use the MINC computer to record offsets 
transmitted by the Ohio State seam-tracking system system to facilitate 
better tracking on multipass welds. 

2.2 APPROACH 

CAD files containing the SSME dimensional information are generated on a 
Computer Aided Design (CAD) system. It is anticipated that that the 
conversion of CAD files to N/C robot control programs will be carried out 
on an intermediate computer such as VAX systems now installed at MSFC. The 
final link to the MINC-23 or some other computer on-line with the robot can 
be handled by transferring the N/C programs on floppy diskettes, or over 
high speed or low speed data communication links. The N/C programs are 
expected to finally be stored on a computer attached on-line to the robot 
since the robot is limited to in-memory storage of only nine programs. In 
a production environment it will be necessary to transfer new programs to 
the robot as segments of the welding tasks are completed. It is 
anticipated that the software that is the main subject of this report will 
continue to be used for that application either on the MINC-23 or a 
successor digital computer. Figure 2.1 illustrates the overall 
configuration. 
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3.0 SOFTWARE DESCRIPTION 


3.1 INTRODUCTION 

The software system for MINC-robot communication is called CYR02. It is a 
set of routines designed to permit off-line Numerical Control program 
storage and development on the MINC computer. A previous software system 
called CYR01 was primarily a checkout system designed to demonstrate that 
communication could be established between the MINC computer and the CYRO 
750 robot. The CYR02 system will serve as a basis for developing the 
functions of a "workcell host computer." 

The robot can be programmed in the teach mode described previously or 
directly from the robot console by typing steps using the CYROVISION 
numerical control language. The following lines represent an example of a 
CYROVISION N/C program: 

N200VA50WA200/ ; Start Welding 

N210G4F3/ ;Wait-Arc Stabilize 

N220G42C1/ ;Turn Cyrovision On 

N230XA23.45YA12.98/ ;Move Robot 

N240G43/ ;Turn Cyrovision Off 

N260VA0WA0/ ;Stop Welding 

N300M02/ {Program End 

The above program is comprised simply of strings of text stored as ASCII 
codes. These are interpreted by the robot controller. The comments are 
added for clarity and would not appear on the robot control console. When 
displayed each line of the actual N/C program line is terminated by a 
"slash". For display purposes the slash replaces an ASCII code for 

"carriage return" that is actually used to terminate the text string in 
robot computer memory. The text strings can be manipulated by the standard 
Digital Equipment Corporation screen editor if the code is modified 

slightly. Each line of text in the robot is terminated with a carriage 

return and the editor expects to find each line terminated by a carriage- 
return code followed by a line-feed code. 

To permit off-line development and modification of N/C programs for the 
robot, it was decided to store program on diskette in a form suitable for 

manipulation by the standard RT-11 screen editor. All programs are 

transmitted back and forth between the robot and MINC computer in the 
formats specified by the External Device interface specifications provide 
by Advanced Robotics. However, before storage on MINC diskettes, the 
numerical control programs are modified by the addition of a line-feed code 
following each carriage-return code. 

3.2 SOFTWARE OVERVIEW 

CYR02 is a menu-driven, modular software system that allows the user to 
create, edit, merge, file on diskette, and transfer N/C control programs 
back and forth between the MINC computer and the CYRO 750 robot. Also 
included are utility routines than can be called from the same menu to 
examine the directory of programs on the diskette, display a directory from 
the first two lines of programs in the robot, resequence statement numbers 
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of an N/C control program, transmit messages to the robot console, list 
robot operating parameters, display current robot position coordinates, and 
run a robot N/C program from the MINC console. Only the number 
corresponding to the desired menu selection and a carriage return need to 
be typed to execute any given menu function. A menu operation can also be 
chosen by typing a mnemonic that consists of the letters capitalized in 
each menu selection. Host of the code is written in FORTRAN to simplify 
transportation of the system to another computer. 

Routines that interact directly with the MINC digital-input and digital- 
output interfaces are written in PDP-11 assembly language. SEND and RECEVE 
(spelled as shown) are two assembler routines that transmit or receive 
complete arrays of data that are manipulated by calling FORTRAN routines. 
The two subroutines called SNDBYT and GETBYT could be referred to as device 
handlers since they handle the actual input and output and take care of the 
appropriate "handshaking" protocol described in section 5.2 of this report. 
SEND and RECEVE transmit complete arrays of data and receive or return 
appropriate single-byte acknowledge messages. 

The assembler routines are the only message-handling subroutines that 
directly affect or are affected by the interface hardware. At the present 
time, polling techniques are used to synchronize input/output operations 
with handshaking flags. The system could be converted to an interrupt- 
driven environment by merely altering the assembler routines. 

Most of the rest of the CYR02 software package consist of a set of FORTRAN 
subroutines that prepare or accept various messages that are moved into or 
out of a 257 word integer array that is, in turn, processed by subroutines 
SEND and RECEVE that handle the actual I/O as described above. 

3.3 SOFTWARE DESCRIPTION 

The mainline program of the CYR02 package goes by the same name. This 
routine first initializes the communications linkage and then displays a 
menu of available selections that correspond to each of the functions that 
are available in the system. The main menu is shown in Figure 3.1. 


Any menu function can be selected by typing either the number or the 
capitalized letters followed by a carriage return. At that point control 
is transferred to a subroutine that takes over control and handles the 
particular function selected. Further interaction with the operator is 
under control of the selected subroutine and may involve futher operator 
interaction at the CRT keyboard. Control is returned to the main menu when 
the selected function is completed. 

Briefly each of the menu selections function as follows: The REINIT selec- 
tion establishes a communications link between the robot and external 
computer. SAVE transfers a program from the robot to a diskette file on 
the MINC computer. LOAD transfers a program from diskette to the robot. 
RUN allows any program currently loaded in the robot to be selected by 
program number. The DIR selection allows the operator to display or print 
the first two lines of all programs currently loaded into the robot. This 
constitutes a directory if the first two lines of each program are comments 
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CYRO 750 EXTERNAL DEVICE INTERFACE MENU: 

1. REINITialize system (Reset Robot) 

2. SAVE robot program to diskette 

3. LOAD program from diskette 

4. RUN a program 

5. DIRectory of programs in robot 

6. (DDIR) Diskette DIRectory 

7. SHOW a program in the robot 

8. LIST a program from diskette 

9. EDIT a program on diskette 

10. RESequence a program on diskette 

11. POSITion of the robot 

12. PARAMeters from the robot 

13. MESSAGE to the robot console 

14. PARK and ignore all messages from robot 

15. TRANSfer robot programs from VAX 
"E" EXIT to operating system 

SELECT> 


Figure 3.1. External Device Main Menu 
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containing program identification. DDIR permits the diskette directory to 
be displayed or printed. SHOW and LIST display or print programs stored 
respectively in the robot or on diskette. EDIT transfers control to the 
RT-11 operating system so that the standard system Editor can be used to 
create or modify programs. The RES selection resequences the program line 
numbers of a NC program that has been altered by repeated editing or by the 
combination of one or more programs. TRANS also returns the operator to 
the main operating system so that a transfer program can be used to move 
programs from a CAD computer system to the MINC. 

The above menu selections provide the main software features required for 
off-line program development and modification; however, several additional 
options are provide since the capability exists in the robot communication 
package. POSIT and PARAM both request and display robot status data on the 
MINC console. PARK is a "do nothing" routine that merely discontinues 
communication between the robot and the MINC while acknowledging any 
spurious messages from the robot so that error codes are not produced by 
the robot operating system. The following sections describe each selection 
in greater detail. 

3.4 Subroutine INIT : This subroutine must be executed before any other 
function is selected. It is automatically invoked whenever the CYR02 
software is executed; however, it may be executed from the main menu should 
robot communications require resynchronization. Following selection of the 
this function, RESET on the robot teach pendant should be pressed, followed 
by a wait of two seconds before pressing ENTER or carriage return to return 
to the main menu. 

This subroutine is designed to established communication between the robot 
and the MINC computer. When the robot is RESET the control software in the 
CYRO 750 requests device identification and status from any device attached 
to the external device interface. This subroutine starts by calling sub- 
routine DOUT to clear the parallel output communication register in the 
MINC computer. (Actually, all bits of the output register are set HIGH due 
to characteristics of the interface.) Then the subroutine calls the RECEVE 
subroutine and waits for a message from the robot. The MINC will wait 
indefinitly for the robot to transmit a message. When the device identifi- 
cation/status message is received from the robot, the INIT subroutine will 
respond that the MINC is operational. This is done by sending a type code 
129, followed by codes that indicate that the device type is a computer, 
the device identification is "MNC", that status is operational, and a 
message for display on the robot console is "MINC OK - CYR02 V2.2". 

Several messages may be seen on the CRT display reflecting different possi- 
ble conditions. For example, if no message is ever transmitted by the 
robot the MINC display will indicate that it is waiting and that enter must 
be pressed to continue. Other error messages will indicate if the message 
from the robot was incorrectly received. Next the MINC will try to trans- 
mit a reply to the robot up to five times. Finally, the INIT routine will 
continue to read additional messages and ignore them as there appear to be 
undocumented additional messages transmitted by the robot following a 
reset. 
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3.5 Subroutine SAVE : This routine accepts a program number to be saved on 
the diskettes from the MINC terminal. The program also asks for a six 
character name under which the program will be stored. Then a request is 
transmitted to the robot and the computer receives and files the program 
returned by the robot. The program is filed using the name typed on the 
keyboard with the suffix ".CYR" appended to it. 

For safety, the program also asks if itshould overwrite a program with the 
same name already stored on the diskette. Many possible error messages are 
contained in the program should any of a number of error conditions are 
detected during the transfer. The program is a duplicate of the ASCII code 
contained in the robot. 

3.6 Subroutine REQTS : This subroutine is a brief routine that merely sets 
up an array with the codes appropriate for requesting that one of the 
programs in robot memory, identified by number, should be transmitted to 
the external device. It then calls subroutine SEND that handles the actual 
message transmission. 

3.7 Subroutine LOAD : This routine allows the user to select a particular 
N/C control program to be loaded from the MINC diskette to the robot. Then 
the program is transmitted to the robot with appropriate handshaking. 

The routine requests the name of the diskette file containing the program 
to be loaded. Only the first six letters need be typed on the keyboard 
since the routine assumes the ".CYR" extension which was appended when the 
program was stored. Then a message on the MINC CRT display requests the 
number between 1 and 9 that the N/C control program will be referenced by 
once it is stored in robot memory. Appropriate error messages are also 
displayed whenever necessary. 

3.8 Subroutine DISKSV : This routine is called by SAVE and handles the 
actual storage of blocks of data on the MINC diskettes. It merely keeps 
track of the number of blocks of data transmitted to it by SAVE and fills 
the last block with NULLS if the block is not completely filled with data. 
DISKSV locates all of the line-feed characters that serve as program line 
delimiters and precedes each one with a carriage return. Only the actual 
program is saved to diskette so that the file will be compatible with the 
standard RT-11 system editor. 

3.9 Subroutine DISKRD : The DISKRD subroutine is just the reverse of the 
DISKSV subroutine. DISKRD retrieves any N/C control program stored on 
diskette and strips out the carriage return characters. Then it counts the 
number of characters in the program and prepares a "header" array that 
contains the size of the program, the total number of 252 character blocks 
that will be transmitted, and the actual number of characters stored in the 
final block of the program if it is not completely filled. Appropriate 
error messages are displayed if any detected errors occur. 

3.10 Subroutine RUN : This routine is used to start any program stored in 
the robot N/C program memory. It merely accepts a program number from the 
MINC console keyboard and transmits a message to start that program in the 
robot. The RUN subroutine has no control over the program in robot memory 
as these must have been previously loaded from the robot program cartridges 
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or by using the LOAD menu selection on the MINC. The subroutine displays 
an appropriate prompt message on the MINC CRT prior to accepting a program 
number from the keyboard. The actual message transmitted by this routine 
is. a "set program mode" message. It must be transmitted while the robot is 
in a "no activity state", otherwise the message will be ignored. 

Following transmission of the RUN message, this routine remains in a state 
whereby it can receive and acknowledge messages from the robot. Undocu- 
mented messages appear to be transmitted by the robot and error conditions 
will occur if the messages are not acknowledged by the MINC. The RUN 
subroutine will continue to accept messages and ignore them until a key is 
pressed to return to the main menu. 

3.11 Subroutine DIRECT : This routine is used to determine which programs 
are stored in the robot program memory. This is done by requesting that 
all programs should be transmitted to the MINC from the robot. The DIRECT 
subroutine then displays a directory that consists of the first two lines 
of each routine stored in program memory. The first two lines of every N/C 
control program should contain a program title and other identification 
information such as discriptive data, dates, and the programmer's name. 

3.12 Subroutine DISPLA : The DISPLA subroutine accepts a program number to 
be displayed from the MINC terminal and then sends a request to the robot. 
The requested program is received and displayed on the MINC console CRT or 
printed on the printer attached to the MINC. Selection of output device is 
under operator control. 

Program data received from the robot is formatted as strings of ASCII code 
alphanumerics terminated by a line-feed code after each program statement. 
To display a program consistent with the format displayed on the robot 
console, the line feed is displayed as a right slash (/) followed by a 
carriage return and line feed that proceeds following program statements. 

3.13 Subroutine DDIR : The DDIR subroutine name stands for "Diskette 
Directory." Selecting this menu option causes the diskette directory to be 
displayed on the MINC CRT or printed in the same format that one finds when 
the system command "DIR" is typed when no program is executing and the RT- 
11 system prompt is displayed. The only reason for including this option 
in the menu is to permit the operator to view the directory without exiting 
CYR02 and returning to the operating system. 

This routine is basically a direct read of the directory block on the 
diskette followed by some computations that are necessary to directly 
access the compact directory information from a FORTRAN program. 

3.14 Subroutine LIST } Subroutine LIST is another convenience program to 
permit listing of any N/C control program stored on diskette with the 
program name extension ".CYR" without returning to the operating system. 
To obtain a program listing consistant with robot console displays, the 
listing routine places a right slash (/) at the end of each program line 
before the normal carriage return followed by a line feed. The program can 
be listed on either the MINC console CRT or the printer. 
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3.15 Subroutine RESEQ : This subroutine is used to resequence any N/C 
control program stored on the MINC diskette. It searches for the "N" 
followed by a number at the beginning of each Line of the program and 
replaces the current line number with a new sequence number separated by 10 
from the proceeding line number. This menu option is used whenever 
programs have been modified extensively and unused line numbers no longer 
are available between existing lines to insert new program lines. Since 
program line numbers are merely used for programmer convenience, this 
routine simply replaces all the existing numbers with a new sequence 
starting at 100 and counting by 10' s. The subroutine calls another subrou- 
tine INSRT that keeps track of the count and converts the line numbers into 
appropriate ASCII codes. 

3.16 Subroutine INSRT : This subroutine is called only by the resequencing 
subroutine RESEQ. This routine's sole purpose is to keep track of the line 
number count by tens and convert the line number to a sequence of ASCII 
codes. 

3.17 Subroutine MESAGE : The MESAGE subroutine is spelled this way to keep 
the mnemonic name within the six character name limit. This routine 
accepts a message from the computer keyboard and transmits it to the robot 
for display on the robot console display. Appropriate prompt and error 
messages are generated when necessary. 

3.18 Subroutine POSIT : The POSITion subroutine transmits a request for 
robot positions to the robot with a single byte message set to zero (0). 
The zero indicates that only one byte per request is desired. The routine 
then waits for a response from the robot which should include the type code 
4 followed by 18 bytes of binary data that convey the current robot posi- 
tion. Each position consists of two sequential bytes: the low-order byte 
first followed by the high-order byte. The nine coordinates correspond to 
x, y, and z coordinates in inches, the A and C axis angle in degrees, and 
each of two positioner x and y axes in degrees. 

3.19 Subroutine PARS : This routine requests the current robot parameters 
and then displays them on the MINC console CRT. It sets up and transmits 
the request message, receives the returned data, and scales the data before 
displaying it. Parameters displayed are torch feed rate in inches per 
minute, wire feed rate in inches per minute, weld level in percent, and 
AVC/ACC setpoint level in percent. Also the presence of left, right or no 
oscillation is displayed. The parameters are transmitted once in response 
to each request. 

3.20 Subroutine EDITOR : The EDIT menu selection merely returns control to 
the operating system so that the operator can use the RT-11 system editor 
to develop or modify a N/C control program. Ue could find no way to call 
this system program without exiting the CYR02 software system. Since the 
RT-11 system editor is a very sophisticated and convenient full-screen 
editor with which most programmers would be familiar, it was decided to use 
this editor rather than writing a different editor that could be embedded 
within the CYR02 package and called directly from the main menu. 

Selection of the EDIT option presents a message explaining that control 
will return to the operating system if desired. Selection of this option 
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stops the CYR02 system and control returns to RT-11. The RT-11 prompt will 
appear and the operator should type EDIT <filename.CYR>. The six character 
filename is some program that exists on the file diskette and the ".CYR" 
suffix must be appended to the name. If no such file exists the system 
will ask if you wish to create a new file by that name. The appropriate 
editor commands should be consulted in the RT-11 system documentation. 

Since editing or N/C program creation using the MINC computer will usually 
be an off-line operation, the user will generally not be operating the 
CYR02 system. Programs created using the RT-11 editor will be in the 
proper form for use on the robot if the standard syntax is used. The right 
slash (/) should not be placed in the program file as this is not actually 
present in N/C control programs. Merely end each program line with a 
carriage return and the other CYR02 routines will provide proper conversion 
for display and transmission to the robot. The specific file format used 
in CYR02 was selected for compatibility with the RT-11 editor. 

When an operator wishes to return to an on-line mode, CYR02 must be 
requested from the RT-11 system prompt and the system INITialized and the 
robot reset. 

3.21 Subroutine PARK : The CYRO 750 robot appears to transmit messages at 
various times when an external device is on-line. The content of these 
messages is not apparent from the documentation provided by Advanced 
Robotics. The problem that occurs is that the robot expects a one byte 
acknowledgement whenever it transmits a message and the absence of such an 
acknowledgement causes robot control system to stop and display a timeout 
error message. The current CYR02 software package is a polled system and 
is not equipped to handle messages except when specifically in a routine 
that is programmed to accept messages. To overcome this problem when the 
CYR02 system is on-line, PARK is an option that places the MINC computer in 
a mode to accept and acknowledge each message but then ignore the content. 

The CYR02 communication handlers could be rewritten to function in an 
interrupt mode to overcome this problem, however, this option has not been 
implemented since it is not currently clear whether the current hardware 
will be replaced by another system. 

3.22 Subroutine INTER : Control is transferred to this subroutine in 
response to menu selection TRANS. Like the EDIT selection, this routine 
merely displays a message and transfers control to the RT-11 operating 
system so that software for communication with the Intergraph CAD system 
can be activated. 
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4.0 DESCRIPTION OF MINC-23 INTERFACE 


4.1 MINC INTERFACE MODULES 

Digital communications with the MINC-23 computer is relatively straight 
forward. It is accomplished using standard MINC digital input modules 
referred to as MNCDI's and MINC digital output modules known as MNCDO's. Up 
to a maximum of eight of either type may be incorporated into a system. 
The system referred to as the "External Computer" for the Advanced Robotics 
system, includes two MNCDI's and two MNCDO's. Each MNCDO or MNCDI includes 
16 output and 16 input lines, respectively, plus connections for strobe and 
reply logic signals. Figure 4.1 shows the connector blocks for the MINC 
digital input and output modules along with notes that identify the logic 
signals that may be used to synchronize communication with various 
peripheral devices. 

4.2 THE MINC-R0B0T INTERFACE 

The communication link between the MINC computer and the Advanced Robotics 
External Device Interface is shown in Figure 4.2. The MNCDO's and MNCDI's 
were determined to be suitable for communication with the robot rather than 
installing an additional Digital Equipment Corporation DRV11 module which 
would perform essentially the same function. A second pair of digital 
interface modules is available to perform additional communication duties 
such as relaying data back and forth between the MINC and an Ohio State 
University welding seam-tracking system that will be attached to the same 
robot. 

The interface shown in Figure 4.2 includes some features that should be 
described. Although the MNCDO and MNCDI modules include logic signals for 
handshaking, it was determined that these inputs and outputs were designed 
for short-duration pulse signals rather than logic levels that remain set 
until answered or cleared under program control. Based on the Advanced 
Robotics External Device Specif ication,m it was decided to use the circuit 
shown in Figure 4.2 rather than attempt to use the pulse handshaking sig- 
nals which could be of such a short duration that proper synchronization 
between the robot and MINC would not be possible. 

The interface connections shown in Figure 4.2 utilize the high-order two 
bits of the digital input and digital output modules for handshaking. 
Since only 8-bit bytes are transferred back and forth between the two 
devices, the high-order 8 bits of both the input and output modules are 
unused for data transfer and may be used for handshaking purposes. 

The software described elsewhere was designed to function in a simple 
polling mode; however, the MNCDI and MNCDO modules make provision for 
hardware interrupts. An interrupt signal may be obtained either from the 
pulse logic handshaking inputs or from the high-order two bits on the MINC 
digital input module. This choice is controlled using software to appro- 
priately set a hardware control/status register in the interface module. 
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Figure 4.2 The MINC * ROBOT Parallel Communications Link. 



5.0 DESCRIPTION OF ROBOT INTERFACE 


5.1 CYRO 750 HARDWARE INTERFACE 

Communication with the Advanced Robotics Cyro 750 robot is provided by the 
addition of a special feature to the basic robot control computer. This 
interface included both hardware and software and is called the External 
Device Interface. 

The hardware specification provided by the vendor is shown diagramatically 
in Figure 5.1. Actual communication with an external device is provided by 
the DRV-11 Parallel Interface Module with the logic signal definitions 
shown in Figure 5.2. The pin connections and the connector attached to the 
Cyro 750 is shown in Figure 5.3. 

5.2 PARALLEL INTERFACE HANDSHAKING PROTOCOL 

The handshaking protocol defined by Advanced Robotics is as follows: 

Output from Robot - 

1. Write data to port. 

2. Set CSR1 (Indicates data ready.) 

3. Wait for REQA to be set. (Indicates that external device 
has accepted data.) If not set in 2000 milliseconds, then 
exit to error recovery. 

4. Clear CSR1. 

5. Wait for REQA to be cleared. If not cleared in 500 milli- 
seconds, then exit to error recovery. 

Input to Robot - 

The REQB signal line (from the external device) is used to 
generate an interrupt to indicate that information is available 
on the port. 

1. If REQB is not set, then exit to error recovery. 

2. Read data from port. 

3. Set CSR0. (Indicates that data has been read.) 

4. Wait for REQB to be cleared. If not cleared in 500 milli- 
seconds, then exit to error recovery. 

5. Clear CSR0. 

The exit to error recovery comments in the above protocol cause program 
control to return to the mainline program where different consequences will 
occur depending on the source of the error. In some cases the robot 
software may attempt to re-transmit a message and in other cases an error 
message may be displayed indicating that the external device is not ready 
to communicate with the robot. Table 5.1 shows the various error messages 
that can be generated. 
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TABLE 5.1 
ERROR MESSAGES 


ERROR 

OCTAL 



MESSAGE 

200 

1000 

LENERR 

- 

Length on input = 0 or 255 error 

201 

1001 

LRCERR 

- 

LRC error on input - after 8 retries 

202 

1002 

TBBERR 

- 

Time between bytes on input too long 

203 

1003 

THSBER 

- 

Time for handshake too long - REQB to go low 

204 

1004 

THSAHE 

- 

Time for handshake on output too long - 





REQA to go high 

205 

1005 

THSALE 

- 

Time for handshake on output too long - 





REQA to go low 

206 

1006 

ADQERR 

- 

Free list queue full 

207 

1007 

TYPERR 

- 

Type code not understood 

208 

1008 

SMGERR 

- 

Send message error - not accepted after 





eight retries 

209 

1011 

FQEERR 

- 

Free list queue empty 

20A 

1012 

PARERR 

- 

Parity error 

20B 

1013 

DVSERR 

- 

Device not operational 


5.3 MESSAGE PROTOCOL 

Messages to and from the robot are transmitted as variable length sequences 
of 8-bit bytes. The entire message, along with several control bytes, is 
transmitted in a single burst. An acknowledge message is -expected from the 
receiving device when the entire message has been received. Handshaking, 
as described in the previous section, is used to synchronize the transfer 
of individual bytes of data. A 100 millisecond timeout is established for 
the initial handshaking response from the receiver and a 1 millisecond 
timeout is established as the limiting waiting period for a handshaking 
signal between bytes of data. The following message protocol is quoted 
from the Advanced Robotics External Device Specification: 

"Length - a byte of information is transmitted by the sender indica- 
ting the length of the type code and data portion of the message. The 
length of a message can range from 1 to 254 bytes. 

"Sequence Number - a byte identifying each message. This number will 
be used to reference a particular message, for example, an error 
message may reference this number to indicate which error caused a 
message. 

"Type Code - a byte indicating the type of message that is being 
transmitted. This message is used to define the format of the data 
following, and is application dependent. 

"Data - 0 to 253 bytes of information that are application dependent. 
The number of data bytes plus the type code byte defines the length of 
the message. 
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"Longitudinal Redundancy Check - a byte transmitted by the sender to 
verify that the type code and data were correctly received. This is a 
software computed check, and is unrelated to any hardware checks that 
may be performed. The LRC will be computed by exclusive or-ing the 
length with 'FF', then using the result to exclusive or with the type 
code, then using the result to exclusive or with each byte of data. 

"The message will be complete when a byte is transmitted by the recei- 
ver to acknowledge the correct or incorrect receipt of the message 
from the sender. If the LRC computed by the receiver matches the LRC 
sent by the sender, then the message was received correctly." 

5.4 MESSAGE TYPES 

Six message types are supported by the Advanced Robotics External Device 
Interface. These are described in detail in the APPENDIX. Data is trans- 
mitted in 8-bit bytes, however, some data represents 16-bit binary inte- 
gers, while other data represents ASCII coded text messages. Where data 
represents a distance, the 16-bit integer is scaled to represent 1/128 
inch (.0078) per bit. Angular information is scaled to represent 1/10 
degree per bit. The message types specified in the Advanced Robotics 
External Device Specification (27 April 1984) are as follows: 

"Messages from the robot to all devices 

- Request Device Identification/Status - Type Code 1 

- Program Status Mode - Type Code 2 

- Welding Status Mode - Type Code 3 

- Robot Positions - Type Code 4 

- Special Message to Device - Type Code 5 

- Error - Type Code 6 

- Robot Sytem Parameters - Type Code 7 

- Device Modes - Type Code 8 

"Messages from Robot to Sensor Devices 

- Sensor Set-up Parameters - Type Code 33 

- Sensor Table Parameters - Type Code 34 

- Sensor Position Definition - Type Code 35 

- Sensor Diagnostic - Type Code 36 

- Sensor Calibration - Type Code 37 

- Search for seam - Type Code 38 

"Messages from Robot to Computer Devices 

- Load Program from Computer Acknowledge - Type Code 65 

- Save Program to Computer Acknowledge - Type Code 66 

- Save Program to Computer - Type Code 67 


"Messages from all Devices to the Robot 

- Device Identification/Status - Type Code 129 

- Set Program Mode - Type Code 130 

- Set Welding Mode - Type Code 131 

- Request Robot Positions - Type Code 132 

- Special Message from Device - Type Code 133 

- Error - Type Code 134 

- Jog - Type Code 135 

- Move Robot - Type Code 136 

- Request Robot System Parameters - Type Code 138 
"Messages from Sensor Device to Robot 

- Override Data - Type Code 161 

- In Position Command - Type Code 162 

"Messages from Computer Devices to Robot 

- Request Save Program to Computer - Type Code 193 

- Request Load Program from Computer - Type Code 194 

- Load Program from Computer - Type Code 195" 
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Figure 5.1 External Device Interface Hardware Structure. 
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6.0 ROBOT WELDING MONITOR 


6.1 OVERVIEW 

An important factor related to improvement of weld quality is the ability 
of a welder to monitor the robot welding operation. Information to be 
monitored can come from three sources: (1) parameters and control informa- 
tion available from the robot control computer; (2) data available from the 
vision seam- tracking computer; and (3) data available from other sensors 
that may be included in the overall welding system. 

The software supplied for this contract provides an initial capability to 
display parameters and position data from the robot control computer. The 
position of the robot and robot control parameters may be requested by menu 
selection from the MINC computer console. This program responds only when 
the data is requested by an operator, however, a more elaborate welding 
monitor could be written. This software could be expanded to request the 
data at regular time intervals and provide the operator a continually 
updated display subject to the limitations of the robot control software to 
respond to requests. 

Offsets and other control information provided by the Ohio State seam 
tracking machine vision system is not available for display on the MINC 
computer. This is due to the fact that there is only a single external- 
device interface on the robot control computer. Either the vision system 
or the MINC computer can be attached to the robot. Both cannot be attached 
at one time. The next section of this report will consider possible future 
enhancements that will allow connection to the vision system through the 
MINC computer in such a way that offsets and other data passing between the 
robot and the vision system can be displayed on the MINC console. 

Finally, other sensors could provide useful information relative to the 
progress and status of a weld. These additional devices could be attached 
to the MINC computer to provide additional data for a status display. 
Additional interface modules are currently attached to the MINC computer 
that could be used to provide communication links with other devices such 
as Penetration Sensors currently being developed by the Rocketdyne Division 
of Rockwell International. Documentation provided by Rocketdyne shows an 
IEEE 488 interface that is presumably to communicate with a weld cell host 
computer. Also additional interface logic cards could be attached to the 
PDP-11/23 bus in the MINC computer to provide further communication 
capability. 

Quite a broad range of capabilities are possible, however, there are 
practical constraints and limitations. For instance, the current software 
package exceeds the memory size of the MINC system and must be loaded a 
segment at a time using overlays. Monitoring several devices at a time 
would require several interrupt-driven handlers to be in memory. The 
current operating system is essentially a single-job monitor, therefore, 
the various communication tasks would have to be integrated into a single 
job. Such an expanded system, communicating with several devices, would 
severely tax the current hardware and is the main reason that a change to a 
larger computer using a multi-tasking operating system is considered 
elsewhere in this report. 
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6.2 PROBLEM STATEMENT 


The problem statement based on the above discussion can be stated as 
follows: How to provide operator welding process displays suitable for 
monitoring welding operations and status that can be expanded to include 
data from the robot, the seam-tracking vision system, and other potential 
sensors; while solving the constraints of limited memory and a single-job 
operating system on the current M1NC-23 computer system. 

6.3 APPROACH 

If NASA were to specify the data that should be included on an enhanced 
process display, the present software could be expanded to a certain extent 
(limited by the single-job operating system) to provide a regularly updated 
video display on the CRT attached to the MINC computer. Merely providing 
repeated displays of the data that can currently be requested from the 
robot is relatively simple. However, if more than one source of informa- 
tion is anticipated in the future, the current software should be converted 
to a new system with interrupt- driven handlers rather than the current 
polling-type communications link. Using the MINC computer, some additional 
features could be included; however, limited memory, the lack of high-speed 
mass storage disks, and a multi-tasking operating system constrain the 
additional features that could be added. In addition, each change in the 
system would require repeated changes to the single-job software, since 
each additional task would have to be incorporated as part of a single 
steadily growing program. On the other hand, continually expanding re- 
quirements could be readily developed if a larger computer and the RSX-11M 
operating system were selected for implementation as discussed elsewhere in 
this report. 
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7.0 SEAM-TRACKING MONITOR 


7.1 OVERVIEW 

The previous section of this report mentioned the need to monitor the 
visual seam- tracking system to provide better process displays. Other 
factors, however, make it desirable to monitor the seam- tracking system and 
record offset or correction commands that are transmitted to the robot to 
correct the tool position while welding a seam. It is anticipated that 
some welds controlled by the seam-tracking vision system will be multi- 
pass. That is, the vision system will provide corrections to the torch 
position during an initial penetration welding pass. Following the initial 
pass, one or more fill passes will be required on thick material to 
complete the weld. The additional fill passes will follow the path of the 
original corrected penetration pass with perhaps some additional offsets to 
build the fill material. If the original corrections provided by the 
vision sensor were stored on the external computer (currently the MINC), 
torch positions during subsequent passes could be simply calculated rather 
than having the seam-tracking sensor re-track the seam. The offsets to 
correctly position the fill metal would then be applied to the stored first 
pass. It is suggested that multi-pass welds would be improved by storing 
the path of the penetration pass rather than following the seam with the 
vision system on each pass. 

7.2 PROBLEM STATEMENT 

This particular problem can be stated as follows: How to develop a system 
to permit multipass welds to use the coordinates of the initial penetration 
pass for controlling subsequent fill passes; while at the same time meeting 
the constraints of a single external device interface on the CYRO 750 
robot. 

7.3 PROPOSED APPROACH 

Based on the constraint of a single external device interface on the robot, 
the only approach that will allow both the seam- tracking system and the 
external computer to be attached to the robot together would be for the 
vision system to pass control information back and forth through the exter- 
nal computer. Fast interrupt handlers would simply accept data from the 
vision system and immediately pass it to the robot. However, in addition 
to transmitting offset data to the robot, the intermediate computer would 
copy the same data into arrays that could then be written to mass storage 
for later use in recalculating the seam coordinates for subsequent passes. 
The exact method of determining the seam coordinates is unknown at present, 
but possibilities are suggested. 

An initial idea would be to merely have the robot repeat the original NC 
program and transmit the stored offsets when appropriate. The possible 
problem with this approach is the necessity of knowing which segment of the 
program is being processed when the stored offsets are to be transmitted to 
the robot. Perhaps the offsets could be time-tagged or somehow related to 
NC program segments. It is unclear whether the external computer could 
obtain coordinate information from the robot during the pass at the same 
time torch correction offsets are being transmitted from the vision system. 
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It is anticipated that appreciable experimental work would be required to 
determine whether such a system would work. 

It is not likely that the presently configured CYR02 software package could 
serve as a basis for a communications link between the vision system and 
the external device interface on the robot. While the current communica- 
tions subroutines could serve as models, the handlers for passing data back 
and forth through the external computer would have to be rewritten. It is 
anticipated that the MINC-23 computer could be used to test the necessary 
concepts, however, it probably will be inadequate for a final design. In 
particular, limited memory, the absence of fast mass storage, and the 
single-job operating system could be insurmountable obstacles to developing 
a satisfactory system. 

It is recommended that experimental work be initiated to further define the 
requirements and constraints relative to storage of coordinates or offsets 
suitable for controlling multi-pass welds. 
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8.0 CONVERSION TO RSX-ll/M 


8.1 OBJECTIVE 

The objective of the study reported in this section is to investigate the 
advantages, and disadvantages of converting the CYR02 system from the cur- 
rent operation under the RT-11 operating system to a new configuration 
under the RSX-ll/M real-time operating system. 

8.2 FEATURES AND LIMITATIONS OF RT-11 

Currently CYR02 is executed on a MINC-23 general-purpose digital computer 
under the control of the RT-11 operating system. RT-11 is primarily a 
small, single-user, real-time operating system designed to function effi- 
ciently on small PDP-11 computers. It is designed for interactive program 
development and dedicated on-line computer operations. The single- job 
version of RT-11 permits either interactive program development or execu- 
tion of an online real-time program; however, both operations cannot be 
carried out at the same time. The RT-11SJ operating system was licensed by 
the vendor and is currently in use on the MINC-23 at MSFC. 

A second version of the RT-11 operating is available that functions in a 
background/foreground mode. The background/foreground monitor permits 
program development or other low-priority tasks to execute in the back- 
ground partition of the system while high-priority foreground tasks operate 
in a foreground partition. A real-time foreground task may be executed and 
will have priority access to system resources. The background task will 
execute whenever the foreground task is not busy. 

The resident monitor (RMON) portion of the background/foreground system is 
twice as large as the RMON component of the single-job system therefore 
limitations will be placed on the size of programs that can be executed in 
both background and foreground partitions. The background/ foreground oper- 
ating system is also able to swap segments of the system between main 
memory and disk backup when suitable disks are available. The MINC-23 has 
only relatively slow diskette mass storage that would probably be unsuit- 
able for real-time tasks sharing a processor with program development 
background tasks. 

RT-11 is a small efficient real-time operating system that is suitable for 
operating environments where only a single real-time task must be executed 
and where program development can take place either at other times or in 
the low-priority background partition. Interrupt driven processes may be 
written to provide very fast real-time responses. 

8.3 THE RSX-ll/M OPERATING SYSTEM 

RSX-ll/M is the primary real-time operating system for the PDP-11. Quoting 
the software manual: "It supports multi-tasking, dynamic memory management, 
multiple programming languages, interactive program development and a wide 
range of equipment interfaces." RSX-ll/M is capable of controlling a 
number of real-time processes concurrently. 
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RSX-ll/M is a multi-user system. A Monitor Console Routine (MCR) can 
provide services to a number of terminal users simultaneously while at the 
same time controlling several real-time tasks. RSX-ll/M is the operating 
system of choice for DEC PDP-11 computers where it is necessary to maintain 
real-time operations concurrently with software development by several 
programmers. The real-time response is fast, however, it is slower than 
the response of a dedicated single-task, event-driven system using an 
operating system such as RT-11. RSX-11M runs on any PDP-11 processor 
except the LSI-11, however, "at least 24K of memory is required for concur- 
rent applications execution and program development." RSX-11M is not 
designed to function in minimum configuration computer systems. 

The following material quoted liberally from an PDP-11 Software Manual 
provides an overview of the capabilities of RSX-11M: 

The RSX-11 family of operating systems is designed to provide a 
resource-sharing environment ideal for multiple real-time activities. 
The basic facilities that the RSX-11 family provides for handling 
multiple requests for services while maintaining real-time response to 
each request are: 

> multiprogramming 

> priority scheduling 

> contingency exits 

> power-fail shutdown and auto-restart 
In addition, RSX-11M provides: 

> disk-based operation 

> checkpointing 

> optional dynamic memory allocation 

The basic unit of work which these operating system facilities service 
is called the task. A task consists of one or more programs written in 
a source language such as MACRO ASSEMBLER or FORTRAN, assembled or 
compiled into an object format, and then built into a task image by the 
linker utility called the Task Builder. In addition to the normal 
linkage functions of combining object modules or creating overlays, the 
Task Builder sets up the basic task attributes that determine the 
task's resource requirements and relationship to other tasks in the 
system. The significant task attributes that affect a task's operation 
in a real-time multiprogrmming environment are: 

> Partition - the section of memory where the task will reside 
when it executes. 

> Priority - the task's relationship to other tasks competing for 
system resources. 

> Checkpointability - the task's ability to be swapped out of 
memory when it is not executing to make room for a task of 
higher priority that is ready to run. 
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Once a task is built, it can be installed in the system and executed. 
Task installation simply registers a task's attributes with the system. 
The task is not in memory, nor is it in competition for system 
resources. An installed task can be put in active competition for 
system resources by the operator or by another active task in the 
system. 

Vhen an installed task is activated, the system will allocate necessary 
resources, bring the task into memory for execution, and place it in 
competition with other active tasks. Task installation is the basis 
for efficient task operation. An installed task uses very little 
memory resource; yet, when the task is needed to service a real-time 
event, it can be introduced into the system quickly since its basic 
parameters are already known to the system. 

Tasks can also share code and data among themselves through the common 
partition facility. A common partition is made accessible to the 
system and to tasks by installing the common partition and the tasks 
which intend to use it. 

The above paragraphs are a text-book description of the features that must 
be present in a multi-tasking, real-time operating system. RSX-11 is in 
wide use at NASA and many persons are available to support such a system if 
CYR02 is required to operate in a multi-tasking environment. 

8.4 ASSESSMENT OF OPERATING SYSTEMS 

The selection of an operating system depends on two key elements: the 
available computer hardware and the anticipated operating environment. 
Hardware may constrain the choice of operating system. On the other hand, 
the operating environment may determine the features required of the opera- 
ting system which, in turn, determine the hardware requirements. 

The MINC-23 was originally acquired to support a rather simple interaction 
with the CYRO 750 robot. It is perfectly feasible to continue to use the 
present system with the RT-11 operating system to support off-line storage 
and modification of NC programs for the robot. The required features are 
available in the CYR02 software package. However, longer range objectives 
associated with robot-controlled welding suggest a more complex environment 
in the future. 

The following tasks are anticipated in the use of robots for welding on the 
space shuttle main engine: 

> Continuation of the current task of storing, modifying, and loading 
numerical control programs for the CYRO 750. 

> Recording of computer-vision seam offsets required for multi-pass 
welds. 

> Down loading of initial weld-seam path coordinates from off-line 
computer aided design (CAD) systems. 

> Continued development of software to support the CYRO 750. 
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The present MINC-23 with the RT-11SJ operating system can handle any one of 
the above tasks. However, it is anticipated that project growth will 
require that software development continue concurrently with execution of 
real-time programs. It would be desirable for a computer to monitor and 
record seam-following corrections generated by the computer-vision system 
while concurrently maintaining communications with the CYRO 750 robot as 
well as downloading seam dimensional information from an off-line CAD 
system. As projects grow it can usually be anticipated that additional 
demands will be placed on the computer system. 

From this discussion it can be seen that the question of computer operating 
system is determined simply by the number of concurrent demands that will 
be placed on the computer. Continuation with RT-11 is to require that 
future computer operations will be in the single-task environment. If a 
multi-task environment is anticipated, an early conversion to the RSX-11 
operating system would be prudent. Such a conversion would require the use 
of a larger disk-based computer system to support RSX-11M. 

8.5 CONVERSION OF CYRO 2 

The CYR02 software is primarily written in FORTRAN with several small 
assembly language subroutines that handle the actual communications proto- 
col for transmitting data between the MINC-23 and the CYRO 750. Conversion 
at this time would merely require that the assembly language routines be 
rewritten to interface with RSX-11M and the new hardware. These assembly 
language communications routines were specifically written as independent 
modules to permit easy conversion to another system. The more extensive 
FORTRAN modules would simply be re-compiled to execute on the new system. 
The operator interface with the CYR02 software would remain unchanged. 
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9.0 CONCLUSIONS AND RECOMMENDATIONS 


9.1 CONCLUSIONS 

Communications has been established between the CYRO 750 Robot and the 
Digital Equipment Corporation MINC-23 computer using the digital input- 
output modules that are part of the MINC-23 system. The interface on the 
robot is the standard external device interface provided by the 
manufacturer. 

A menu driven set of software routines known as CYR02 has been written that 
permit the offline creation, storage, and modification of Numerical Control 
programs for the CYRO 750 robot. In addition, certain robot operational 
features that can be controlled or accessed by way of the external device 
interface have been implemented. 

It would be desirable to expand the CYR02 system to function as a workcell 
host to handle additional tasks such as serving as a robot-welding monitor 
and a seam- tracking system monitor. 

It will be difficult to expand the MINC-23 system to function as a 
multitasking work-cell host due to the limitations of the single- job RT-11 
operating system. 

Some limited additional capability could be developed using the MINC-23 if 
the CYR02 communication routines were converted to interrupt-driven 
handlers. 

9.2 RECOMMENDATIONS 

1. Convert CYR02 to operate under control of a multitasking executive 
such as RT-ll/M. Then develop the expanded role as work-cell host by 
creating additional tasks. 

2. If recommendation 1 cannot be implemented, some additional 
expansion of CYR02 can be achieved by rewriting the communication 
handlers to be interrupt driven. NOTE: This approach has serious 
limitations due to the RT-11 monitor. 

3. Expand CYR02 to include a robot welding monitor. 

4. Add a seam-tracking monitor by routing seam-tracking offsets from 
the Ohio State system through the MINC-23. This route of expansion is 
limited using the MINC-23 since high-speed mass storage is not 
available on the system. 

5. Include communication with a penetration monitor that can provide 
additional control capabilities. 
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1.0 INTRODUCTION 


CYR02 is a sofware package designed to execute on a MINC-23 
computer manufactured by Digital Equipment Corporation. The 
MINC-23 is to be attached to the External Device Interface of an 
Advanced Robotics CYRO 750 robot to provide a capability for 
off-line manipulation of numerical control programs. This 
software is a complete revision of CYR01 which was a simple set of 
routines written merely to check out the communications interface 
to the robot. 

CYR02 provides the capability for initilizing the communications 
link, limited control over the robot, as well as provision for 
saving, editing, loading and executing numberical-control 
programs. The various software features will be discussed in the 
next section. 

The features of CYR02 are all controlled from a single main 
routine with provision for expansion as other capabilities are 
desired. A main menu allows the user to select any program 
feature and the menu table can easily be expanded to introduce new 
features. 

2.0 CYRO 2 EXECUTION 

The CYR02 software system is executed by the following sequence of 
operations: 

a. Connect the MINC computer to the CYRO 750 EXTERNAL DEVICE 
INTERFACE using the cable provided. Since there is only one one 
interface plug on the robot, it may be necessary to disconnect the 
Ohio State vision system. The two systems can not operate 
simultaneously without additional hardware modifications. 

b. Turn on the robot and load the appropriate system 
software from a cassette. 

c. Turn the communications interface switch on the robot to 
the "on" position so that the external interface communications 
link can be established. 

d. Place an RT-11 operating system diskette in the left-hand 
drive which is known as drive DYO. Place the CYR02 system 
diskette in the right-hand drive which is referred to as DY1. The 
operating system is automatically booted when the MINC computer is 
turned on. The system is initialized and a message will request 
the current date and time. In addition to the CYR02 system, drive 
DY1 will also be used to store all numerical control programs. 

e. Execute CYR02 by typing RUN CYR02<cr>, where the "<cr>" 
indicates that you should press a carriage return or newline key. 
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f. When the prompt appears, initialize the system by pressing 

"reset" on the robot pendant. Then press <cr> return to the 
main menu. A message should appear on the robot console to 

indicate that initialization is complete and communication 
has been established between the MINC-23 and the 

robot. 

g. The main control menu should appear on the screen as 
follows: 

CYRO 750 EXTERNAL DEVICE INTERFACE MENU: 

1. REINITialize system (Reset Robot) 

2. SAVE robot program to diskette. 

3. LOAD program from diskette. 

4. RUN a program. 

5. DIRectory of programs in robot. 

6. (DDIR) Diskette directory. 

7. SHOW a program in the robot. 

8. LIST a program from diskette. 

9. EDIT a program on diskette. 

10. RESequence a program on diskette. 

11. POSITion of the robot. 

12. PARAMeters from the robot. 

13. MESSage to the robot. 

14. PARK and ignore all messages from robot. 

15. TRANSfer robot programs from VAX. 

"E" EXIT to operating system. 

SELECT> 


Any item in the menu may be selected either by typing the number 
or by typing the mnemonic printed in capital letters. 

h. Select any desired option from the main menu. The effect 
of each routine will be described in the next section. 

3.0 SOFTWARE DESCRIPTION 

Fourteen options are provided that may be selected from the main 
menu that is used to control the execution of CYR02. Each of the 
menu selections basically calls a subroutine that provides the 
desired capability. All of the subroutines are written in 
FORTRAN; however, the subroutines may call four assembly- language 
subroutines that handle the actual communication functions of the 
software package. The assembly-language routines are the only 
part of the system that are machine dependant, consequently, the 
package could easily be transported to another hardware 
configuration. 

The following paragraphs describe the function of each of the main 
menu selections. 
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3.1 REINITialize 


This selection is called once each time it is necessary to 
establish communication between the MINC-23 and the Advanced 
Robotics CYRO 750. Press "reset" on the robot pendant after the 
REIN1T option has been selected. Wait two seconds and press <cr>. 
Should the robot display an error message associated with the 
External Device Interface, selecting REINIT and again reseting the 
robot should clear the error. 

Note: Option 14, PARK, has been installed to prevent most errors. 
See the description of that routine. 

3.2 SAVE 

The SAVE option is designed to permit the operator to save on 
diskette any of the 9 numerical control programs that may be 
currently loaded into the robot memory. The program will ask for 
the program by number and will also ask the operator for a name 
under which to file the program on diskette. Up to an eight 
character name may be selected and the program will append the 
file suffix ".CYR" when the selected program is transferred to 
diskette. The operator responses required should be evident from 
the prompts displayed on the terminal. 

3.3 LOAD 

The LOAD option is the inverse of the save option. One merely 
responds to the prompts to select a numerical control program 
stored on the right-hand diskette drive on the MINC-23. The DDIR 
option (No. 6) allows one to examine the directory of the diskette 
to select a program which of course should have a file name that 
indicates the purpose of the program. 

3.4 RUN 

The RUN option allows an operator at the MINC-23 console to 
initiate the execution of any program that is currently loaded 
into the robot. The desired program is merely selected by number 
by responding to the prompt on the display. It is not possible 
for the MINC-23 system to keep track of various programs that may 
be created in the robot or loaded from various sources such as 
cassette or diskette. Therefore, the operator is responsible for 
knowing the application of each program. Option DIR (No. 5) may 
be used to determine which programs are currently in robot memory 
as described below. 

3.5 DIR 

The robot directory option may be selected to determine which 
numerical control programs are currently stored in the robot 
memory. This option merely displays the first two lines of each 
program in robot memory; therefore, each numerical control program 
should start with two comment lines that contain information 
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describing the purpose of the program and the name of the person 
who created the program. It is probably desirable to also include 
the date the program was created somewhere on the first two 
comment lines. 

3.6 DDIR 

The diskette directory option is used to display the directory of 
any diskette installed in the right-hand drive of the MINC-23 
computer. The format is exactly the same as the directory 
displayed when requested from the operating system prompt. The 
date that the program was filed is also displayed. 

3.7 SHOW 

The SHOW option allows one to examine any of the nine numerical 
control programs currently stored in robot memory. It is selected 
by number in response to a prompt so the DIR option should be 
selected first to determine the proper program. The SHOW option 
also permits the operator to choose to display the program on the 
CRT or output to the printer for hard copy. 

3.8 LIST 

The LIST option is analagous to the SHOW option except that 
programs stored on the diskette may be displayed on the CRT or 
printed. A prompt will ask for the file name so it is necessary 
for the operator to know the file name or to obtain the proper 
name using the DDIR option. 

3.9 EDIT 

The EDIT option does not invoke a stand-alone editor but instead 
merely returns the operator to the RT-11 operating system prompt. 
After receiving that prompt the operator should type "EDIT <File 
name> where the file name is any of the names that can be observed 
on the diskette directory with a suffix ".CYR". When using the 
system editor the suffix .CYR must be included in the file name. 
Any numerical control program on the diskette may be edited as 
long as the standard nc program syntax is correct. The slash 
("/") found at the end of numerical control programs displayed on 
the CRT should not be included in programs created with the editor 
as the slash is not actually part of the program file. 

Since use of the RT-11 system editor requires the operator to 
leave the CYR02 system, one must issue the "RUN CYR02" command at 
the operating system prompt to return to the CYR02 main menu. It 
is not necessary to REINITialize the system if the robot has not 
tried to send External Device Interface messages to the MINC-23 
while the editor was in use. Since the robot does send 
undocumented messages it is possible for the robot to try to send 
a message and then display an error code when the CYR02 does not 
respond. Should this condition ever occur, merely REINITialize 
the system by selecting option No. 1. 
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3.10 RESequence 


This option allows the line numbers of a numerical control program 
to be resequenced by tens. In other words, the program numbers 
originally used will be replaced by lines numbered with the 
sequence 0010, 0020, 0030, etc. This option is useful when the 
numbering sequence has been modified by repeated edits and it is 
necessary to add a line between existing consecutively numbered 
lines. Memory size limits programs to about 8000 characters. 

3.11 POSITion 

This option merely displays all robot coordinates at the time the 
request is made. Only one set of coordinates is displayed 
although the robot may send additional data. If moving the robot 
should complete any programmed sequence of actions before 
returning to the menu. 

3.12 PARAMeters 

The PARAM option displays the current values of several operating 
parameters on the robot. Included are torch feed rate, wire feed 
rate, percent weld level, AVC/ACC setpoint level, and oscillation 
status. 

3.13 MESSAGE 

The MESSAGE option allows one to type a message at the MINC-23 
console keyboard that will be displayed at the robot console 
display. The prompts are self explanitory. A sequence number is 
requested and sent to the robot but we know of no value for this 
number. Any number is acceptable. 

3.14 PARK 

The PARK option permits the MINC-23 to receive and acknowledge any 
messages from the robot. However, the messages are simply 
ignored. This option is provided as an alternative to taking the 
MINC-23 offline so that error conditions will not occur when the 
robot is being used but is not under the control of the MINC-23. 

We believe there are undocumented messages that are transmitted to 
the external computer that will cause an error condition in the 
robot if the handshaking on the communication link is not 
completed. This routine merely provides the appropriate 
handshaking signals but does nothing with the message. The option 
is necessary since the MINC-23 must continuously be ready to 
accept a message to prevent error conditions in the robot. An 
interrupt driven system would not have this problem but the 
current software package uses a polling method of establishing the 
communications link. 
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3.15 TRANSfer 


The TRANSfer option does not execute a program under the control 
of the CYR02 system. Instead, this option merely returns control 
to the operating, system where software written by Intergraph 
personnel may be used for file transfer. This selection was added 
to CYR02 by Intergraph personnel and is essentially a slight 
modification of the software used in the EDIT option. 

3.16 EXIT 

The EXIT option merely allow the operator to return to the RT-11 
operating system when CYR02 is no longer required. 


41 


APPENDIX B 


DESCRIPTION OF EXTERNAL DEVICE INTERFACE MESSAGES 

This appendix contains a description of the messages that may be 
transmitted between the Advanced Robotics CYRO 750 Robot and external 
computer devices. Messages for communicating between the robot and 
external sensor devices have not been included. This appendix provides the 
basis for all of the software described in this report. The following 
material is a direct quotation from a document dated April 27, 1984, by 

Advanced Robotics' personnel: 

MESSAGE TYPES 

There are six message types supported by the external device 
interface. Distances and angle measurements are referred to in 
many of the messages in these different message types. For 
consistancy, the following scale factors will be used when 
referring to distances and angles: 

Distances: 1/128 inch (0.0078) per bit 

Angles: 1/10 degree per bit 

MESSAGE CONTENTS - ROBOT TO ALL DEVICES 

1. Request Device Identification/Status - is a message sent 
at reset time requesting the device identification and hardware 
status of the device. The result of the request will be a Device 
Identification/Status message from the device, indicating the 
existence, software and hardware version numbers, and the status 
of the hardware that can be determined by the device. 

Coding - Type Code = 1 

2. Program Status Mode - indicates to the device that 
the specified N/C program has been started or stopped. 

Coding - Type Code » 2 

Status (one byte): 

Program Started ■ 1 
Program Stopped = 2 
Program Number (one byte - 1 to 9) 
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3. Welding Status Mode - indicates to the device that 
welding has been started or stopped by the N/C program. 

Coding - Type Code = 3 

Status (one byte): 

Welding Started ■ 1 
Welding Stopped = 2 

4. Robot Positions - indicates to the device what the 
current robot positions are. 

Coding - Type Code ■ 4 

X axis position - inches (two bytes, low byte, 
then high byte transmitted) 

Y axis position - inches (as above) 

Z axis position - inches (as above) 

A axis position - degrees (two bytes, low byte, 
then high byte transmitted) 

C axis position - degrees (as above) 


X 

axis position - C 
above) 

positioner 

- degrees 

(as 

Y 

axis position - C 
above) 

positioner 

- degrees 

(as 

X 

axis position - D 
above) 

positioner 

- degrees 

(as 

Y 

axis position - D 
above) 

positioner 

- degrees 

(as 


5. Special Message to Device - is a message that will pass 
ASCII data that is placed in a corresponding N/C command to the 
device. This message is envisioned to allow special features of 
some devices to be enabled without the need to change robot 
software. It may also be used to send information messages from 
the N/C program to the device. There is a corresponding message 
from the device to the robot that will display on the operator's 
terminal. 

Coding - Type Code 5 

Variable number of ASCII bytes (up to 253) to be 
interpreted by the device for special 
function operation. 


6. Error - is a message indicating that an error has 
occurred in the robot control, and what that error is. The device 
will be required to make a decision based on the error as to the 
proper course of action to take. 

Coding - Type Code 6 

Error Number - to be defined as needed 
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7. Robot System Parameters - is a message indicating tha a 
robot system parameter has changed. Some of the system parameters 
will be torch, feedrate, welding level, wirefeed speed, and left 
and right oscillations. 

Coding - Type Code 7 

Torch Feedrate - inches per minute (two bytes, low 
byte then high byte transmitted) 

Wirefeed Feedrate - as above 

Weld Level - percent of power supply output (two 
bytes, low byte, then high byte transmitted - 
one bit equals 0.1 percent) 

AVC/ACC - Setpoint Level - weld level setpoint as 
defined in the N/C program for Automated 
Voltage Control and Automatic Current Control 
(two bytes, low byte, then high byte 

transmitted - one bit equals 0.1 percent) 
Oscillation - indicates that a left or right 
oscillation has occurred (one byte): 

None = 0 

Left Oscillation ■ 1 

Right Oscillation = 2 

8 Device Modes - is a message telling the device whether the 
messages being received by the robot will be executed or not. 
For example, this will tell a sensor when it should start sending 
override data, or a host computer that a safety switch has been 
released, and that it has control of the robot. 

Coding - Type Code 8 

Device Type (one byte): 

Sensor Device = 1 
Computer Device ■ 2 

Device Identification - three characters as 

defined in the Device Identification/Status 
message. 

Device Status (one byte): 

Device On =1 

Device Off = 2 
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MESSAGE CONTENTS - ROBOT TO COMPUTER DEVICE 


1. Load Program from Computer Acknowledge - a reply message 
from the robot to indicate whether the robot is ready to load a 
program from the computer or not. The robot will accept a program 
from the computer device only when it is in a no activity state 
and a keyswitch on the robot controller is in the device enable 
position. The no activity state is when no program is running or 
no mode is being executed. The robot goes into a no activity mode 
after a hald, a stop program, or the program finishes. It will 
remain in this mode until the operator initiates a function from 
the pendant, or a program is remotely started. This message is 
also used while loading a program from the computer device as an 
acknowledge between program blocks. 

Coding - Type Code 65 

Acknowledge (one byte): 

Not ready to load = 0 (try again later) 

Ready to Load = 1 

Program Number - one byte (1 - 9). This is the 
program number sent in the Request to Load 
Program message, and is used for verification 
purposes. 


2 Save Program to Computer Acknowledge - a reply message 
from the robot to indicate whether the robot is ready to save a 
program to the computer or not. The robot will send a program to 
th computer device only when it is in a no activity state. The 
is, when no program is running or no mode is being executed. The 
robot goes into a no activity mode after a halt, a stop program, 
or the program finishes. It will remain in this mode until the 
operator initiates a function from the pendant, or a program is 
remotely started. 

Coding - Type Code 66 

Acknowledge (one byte): 

Not Ready to Save ■ 0 
Ready to Save = 1 

Program Number - one byte (1 - 9). This is the 
program number sent in the Request to Save 
Program message, and is used for verification 
purposes . 

Program Size - two bytes, low byte send first 

indicating the lenght of the program (number 
of bytes) about to be sent to the computer. 

3 Save Program to Computer - is a message to the computer 
device that contains the N/C program requested. This message is 
transmitted the same as other messages with the addition of a 
block number in the data portion of the message. The length of 
the N/C program is sent to the computer device in the acknowledge 
message, and the save program message may be sent multiple times 
to save the entire program. Between blocks, the robot will expect 
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a request to save program message, indicating that the robot is to 
send the next block of the program. 

Coding - Type Code 67 

Block Number - a byte starting with zero, 
incremented by one for each segment until the 
complete program has been sent to the 
computer. 

N/C Program - variable number of data bytes. 


MESSAGE CONTENTS - ALL DEVICES TO ROBOT 

1 Device Identification/Status - is a message sent as a 
response to a Request Device Identification/Status. This message 
will indicate existance, software and hardware version numbers, 
and the status of the hardware that can be determined by the 
device. 

Coding - Type Code = 129 

Device Type (one byte): 

Sensor Device ■ 1 
Computer Device ■ 2 
Both ■ 3 

Device Identification - three bytes (ASCII 

characters) that identify the device. These 
characters will be used in the N/C program 
to reference this device. 

System Status (one byte): 

Not Operational “ 0 
Operational = 1 

Variable number of ASCII characters defining the 
program version level and other information. 
This information is printed on the operators 
terminal. 


2 Set Program Mode - indicates to the robot that an N/C 
program of the specified number is to be started or stopped. This 
message will be executed only if the keyswitch for the device is 
in the enable position and the robot is in a no activity mode. If 
a program is running and the program start message is received, 
then it will be ignored. If the robot is in a no activity state 
and the program stop message is received, it will be ignored. The 
program stop message will place the robot in the no activity state 
if the keyswitch is enabled. 

Coding - Type Code 130 

Status (one byte): 

Program Start = 1 
Program Stop = 2 
Program Number (one byte - 1 to 9) 
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3 Set Welding Mode - indicates to the robot that welding is 
to be enabled or disabled. This function is identical to pushing 
the torch enable on the robot control pendant, however, it is 
controlled by an external device. In each weld, the welding will 
be enabled if the torch enable on the robot control pendant is 
pushed until a Disable Welding message is received by the robot. 
If a Disable Welding message is received, then an Enable Welding 
message, and the robot is still in the welding portion of the N/C 
program, then the arc will be re-established. 

Coding - Type Code = 131 

Status (one byte): 

Enable Welding = 1 
Disable Welding s 2 

4 Request Robot Positions - indicates to the robot that the 
current robot positions are to be sent to the device. This 
command can initiate the transfer of robot positions at a periodic 
rate of up to 10 Hertz or only when requested. 

Coding - Type Code 132 

Rate (one byte) - 0 to 10 times per second. A 
rate of 0 will indicate to robot to only send 
current robot positions once, until requested 
again. 


5 Special Message to Robot - is a message that will pass 
ASCII data to the robot and onto the operator's terminal. This 
message is envisioned to allow special messages of some devices to 
be transferred to the operator's terminal without the need to 
change the robot software. There is a corresponding message from 
the robot to the device that will allow enabling of special 
features in the device. 

Coding - Type Code = 133 

Variable number of ASCII bytes (up to 253) to be 
displayed on the operator's terminal. 


6 Error - is a message indicating that an error has 
occurred in the device and what the error is. The device will be 
required to make a decision based on the error as to the proper 
course of action to take. 

Coding - Type Code 134 

Error Number - one byte (defined as needed) 

Error Messages - variable number of ASCII bytes defining the 
error. This message will be sent to the operator's 
terminal. 

7 Jog - is a message that initiates a jog function of the 
robot manipulator axes. Once initiated, the axes will continue to 
move at the specified rate until a Stop Jog command is received. 
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This command can only be executed if the robot is in a no activity 
state. That is, when no program is running or no mode is being 
executed. The robot goes into a no activity mode after a halt, a 
stop program, or the program finishess. It will remain in this 
mode until the operator initiates a function from the pendant, or 
a program is remotely started. Note that there are some special 
N/C commands that place the robot in a special no activity mode 
(Ml and M3). When these commands execute, a halt is executed. In 
order to proceed, the operator must push the RUN button on the 
robot control pendant, or the external device must send a Set 
Program Mode - Program Start Message. 

Coding - Type Code 135 

X axis rate - one byte 0 - 100 percent (one bit 
equals one percent) 

Y axis rate - as above 
Z axis rate - as above 
A axis rate - as above 
C axis rate - as above 

8 Stop Jog - is a message that will stop the jog 
motion of the robot manipulator as specified. 

No - 0 
Yes = 1 

Coding - Type Code 136 
All axes - (One byte) 

X axis 
Y axis 
Z axis 
A axis 
C axis 

9 Move Robot - is a message telling the robot to move to an 
absolute position in the robot coordinate system. Due to the 
overhead for communications, the frequency at which this command 
can be sent is unknown. This message, just as the jog message, 
must be sent when the robot is in a no activity state. 

Coding - Type Code 137 

X axis position - inches (two bytes, low byte, 
then high byte transmitted) 

Y axis position - as above 
Z axis position - as above 
A axis position - as above 
C axis position - as above 

10 Request Robot System Parameters - indicates to the robot 
that the current robot system parameters are to be sent to the 
device. The robot will resspond with a Robot System Parameters 
message (Type code 7) 

Coding - Type Code 138 
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MESSAGE CONTENTS - COMPUTER DEVICES TO ROBOT 


1 Request Save Program to Computer - is a message requesting 
that the robot save the specified program to the computer device. 
The robot will respond with a Save Program to Computer Acknowledge 
message indicating whether the robot is ready to send the program 
to the computer and if so, what the program size is in bytes. The 
robot will then send the program to the computer a message at a 
time. The computer must respond between save program messages 

with this request message to indicate that it is ready for the 
next program block. (Note: The first Save Program to Computer 
message containing a block of program data follows immediately 
after the Save Program to Computer Acknowledge message without 
waiting for another Request Save Program to Computer message.) 

Coding - Type Code 193 

Program Number - one byte 1 - 9 


2 Request Load Program from Computer - is a message 
requesting that the robot load the program of specified size and 
number from the computer device. The robot will respond with a 
Load Program from Computer Acknowledge message indicating whether 
the robot is ready to load the program from the computer or not. 

Coding - Type Code 194 

Program Number - one byte 1-9 

Program Size - number of characterss (bytes) in 
program (two bytes - low byte first, high 
byte second) 

3 Load Program from Computer - is a message from the 
computer device that contains the N/C program. This message is 
transmitted the same as other messages with the addition of a 
block number in the data portion of the message. The length of 
the N/C program is sent to the robot in the Request Load Program 
from Computer message, and the load Program message may be sent 
multiple times to load the entire program. Between blocks, the 
robot will respond with a load program from computer acknowledge 
message to indicate that the next block is to be sent. 

Coding - Type Code 195 

Block Number - a byte starting with zero, 
incremented by one for each segment until the 
complete program has been sent to the 
computer. 

N/C Program - variable number of data bytes 
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APPENDIX C 

PROGRAM FLOW DIAGRAMS 
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* NOTE: All messages transmitted between the robot and 
external computer involve handshaking and ext- 
ensive error checking. For simplification, this is 
not shown in most flow diagrams. 
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Ct*tttt****t**t*tt***ttt**t**t*tt***t******t***t**ttt*t*t*****ttt*t*tt*t$Mttt 

C 

C MODULE NAME.* • 

0001 PROGRAM CYR02 

C 

c purpose; mainline program for communicating with 

C ADVANCED ROBOTICS EXTERNAL DEVICE INTERFACE OPTION * 

C 

C INPUT; USER INTERACTION FROM MINC KEYBOARD, 

C 

C PROCESSING; THIS PROGRAM MERELY CHECKS FOR INPUT ERRORS AND 
C CALLS SELECTED SUBROUTINES THAT HANDLE ALL PROCESSING, 

C 

C ‘ OUTPUT? DISPLAYS CYRO 750 EXTERNAL DEVICE INTERFACE TEST MENU; 

C 

C 1, REINITialize System, (Reset Robot!) 

C 2. SAVE robot program to diskette 

C 3, LOAD program from diskette 

C 4* RUN a program 

C 5, DIRectory of programs in robot 

C 6. (DDIR) Diskette Directory 

C 7, SHOW a program on robot 

C 8, LIST a program on diskette 

C 9, EDIT a program 

C 10, RESeouence a program on diskette 

C 11, POSITion of Robot 

C 12, PARAMeters from Robot 

C 13. MESSage to Robot Console 

c 14, PARK and ignore all messages from Robot, 

C 15, TRANSFER robot program for va:< 

C 'E* EXIT to the operating system 

C 

C CALLED BY; THIS IS THE MAINLINE PROGRAM. 

C 

C CALLS TO; INITj SAVE> L0AD> RUN > DIRECT* DISPLA>DDIR> LIST > 

C RESEQr POSIT * PARS* EDITOR* INTER *XCOM (or TESTER) » 

C DOUT, 

C 

C SPECIAL INTERFACE REQUIREMENTS; COMMUNICATION SUBROUTINES CALLED 
C THAT USE THE MINC DIGIAL INPUT/OUTPUT 

C MODULES, 

C 

C REVISION HISTORY (REVISE THIS NARRATIVE IF NECESSARY) 

C DATE PROGRAMMER =====CONTACT/ACTION/REMARKS===== 

C 5-18-84 FRED R. SIAS* JR. (803)656-3375/SYSTEM DESIGN 

C 5-31-85 FRED R. SIASf JR. (803)656-3375/NEW NARRATION 

C 6-02-85 FRS DELETED IN-POSITION 

C 7-05-85 FRS S JKM FINISHED DEBUGGING! 

C 7-11-85 FRS CHANGED TO CYR02 

C 9-6-85 FRS ADDED 'PARK* 

C 1-10-86 DAVID STILES INTERGRAPH 3-2100! VAX FILE TRANSFER 

C 5-07-86 FRS SET UP AUTO INITIALIZE ON ENTRY 

C 


Ctt*tt***ttWttttt*t*ttt*tt*t**t*ttttt**t*t*t*MttW*ttt**tttM****tt*****tW* 
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C 

C 

C 

0002 

0003 

0004 

C 

0005 

0006 

0007 

0008 

0009 

C 

C 

C 

0010 
0011 

C 

0012 

0013 100 


C 

0014 

0015 110 
C 

C 

C 

0016 

C 

C 

C 

0017 300 

C 

001B 

0019 310 


V02.5-2 Thu 08-Nsy-86 13, 4 12:i2 


PAGE 002 


DECLARATIONS 
REAL*8 INPUT 

INTEGER*2 IDATA(257)* RT * WT 
REAL X 

BYTE ARRAY ( 5000 ) * BPDATA( 520) 

INTEGER*2 IARRAY<2500) * IPDATA(260) 

COMMON /INOUT/ ARRAY*BPDATA 
EQUIVALENCE (ARRAYjIARRAY) 

EQUIVALENCE < BPDATA* IPDATA) 

INITIALIZATION 

WT =7 
RT=5 

WRITE (WT > 100) 

FORMAT('l'*/////* 

1 
1 

2 ' 

3 

3 

4 

5 

6 ' 6 MAY 1 986 ' * ////////// * 

6 ' TO CONTINUE PRESS RETURNV $) 

READ (RT » 1 10) X 
FORMAT (06,0) 


CYR02 - V2 .2 ' * //* 

MINC-23 COMMUNICATIONS SOFTWARE FOR'*/* 
CYRO 750 EXTERNAL DEVICE INTERFACE' >//* 
F. R. SIAS* JR. ' *//* 

ECE DEPT. - CLEMSON UNIVERSITY' */* 
CLEMSON* SOUTH CAROLINA 29634-0915'*/* 
(803) 656-3375 ' > //> 


AUTO INITIALIZE CALLUP ON PROGRAM ENTRY 
CALL INIT 


MAIN SELECTION MENU 


CONTINUE 


1 

*7 

3 

4 

5 

6 
7 

7 

8 
9 
1 


WRITE (WT* 310 ) 

FORMAT ( ' 1 ' *///// * 

' CYRO 750 EXTERNAL DEVICE INTERFACE MENU!'*//* 

' 1, REINITislize system (Reset Robot!)'*/* 

' 2. SAVE robot program to diskette'*/* 

' 3. LOAD prodram from diskette end verify'*/* 

' 4, RUN 3 prodrsm' */* 

' 5. DIRectory of prodrsms in robot'*/* 

' 6. (DDIR) Diskette Directory'*/* 

' 7, SHOW 3 prodram in the robot'*/* 

' 8. LIST 3 prodrsm from diskette'*/* 

' 9, EDIT 3 prodram on diskette'*/* 

' 10. RESeouence 3 prodrsm on diskette' */* 


80 


W NJ 


FORTRAN IV 


V02.5-2 


Thu 08-h3y-86 13! 12 1 12 


PAGE 003 


7 ' 11. POSITion of the robot', /, 

8 ' 12. PARAMeters from the robot',/, 

9 ' 13. MESSAGE to the robot',/, 

1 ' 14. PARK and ignore all messages from robot',/, 

15. TRANSfer robot program from VAX',/, 

•E* EXIT to operating system',////, 

4 ' SELECT> ' , I) 
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C 

C 

C 

0020 

0021 400 
C 

0022 
0024 
002 6 
0028 
0030 
0032 
0034 
0036 
0038 
0040 
0042 
0044 
0046 
0048 
0050 
0052 
0054 
0056 
0058 
0060 
0062 
0064 
0066 
0068 
0070 
0072 
0074 
0076 
0078 
0080 
0082 
0084 

C 

0086 

C 

0087 


ACCEPT SELECTION AND BRANCH TO APPROPRIATE SUBROUTINE 

READ (RT f 400) INPUT 
FORMAT (A8) 

IF (INPUT. EQ. '1') CALL INIT 
IF (INPUT. EQ. 'REINIT') CALL INIT 
IF (INPUT .EG. '2') CALL SAVE 
IF (INPUT. EQ. 'SAVE') CALL SAVE 
IF (INPUT. EQ. '3') CALL LOAD 
IF (INPUT. EQ. 'LOAD') CALL LOAD 
IF (INPUT. EQ. '4') CALL RUN 
IF (INPUT. EQ. 'RUN') CALL RUN 
IF (INPUT. EQ. '5') CALL DIRECT 
IF (INPUT. EQ. 'DIR') CALL DIRECT 
IF (INPUT, EQ. '7') CALL DISPLA 
IF (INPUT, EQ. 'SHOW') CALL DISPLA 
IF (INPUT, EQ. '6') CALL DDIR 
IF (INPUT, EQ, 'DDIR') CALL DDIR 
IF (INPUT. EQ. '8') CALL LIST 
IF (INPUT. EQ. 'LIST') CALL LIST 
IF (INPUT, EQ,'?') CALL EDITOR 
IF (INPUT. EQ. 'EDIT') CALL EDITOR 
IF (INPUT, EQ, '10') CALL RESEQ 
IF (INPUT. EQ. 'RES') CALL RESEQ 
IF (INPUT. EQ. '11') CALL POSIT 
IF (INPUT. EQ. 'POSIT') CALL POSIT 
IF (INPUT. EQ, '12') CALL PARS 
IF (INPUT. EQ. '13') CALL MESAGE 
IF (INPUT, EQ. 'MESSAGE') CALL MESAGE 
IF (INPUT, EQ, 'PARK') CALL PARK 
IF (INPUT. EQ. '14') CALL PARK 
IF (INPUT, EQ, 'PARAM') CALL PARS 
IF (INPUT, EQ. '15') CALL INTER 
IF (INPUT, EQ. 'TRANS') CALL INTER 
IF (INPUT, EQ.'E') STOP 
IF (INPUT. EQ. 'EXIT') STOP 

GOTO 300 

END 
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Storage Map for Program Unit CYR02 


Local 

Variables* .PSECT 

IDATA* 

Size 

= 001022 ( 

265. words) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name Type 

Offset 

INPUT 

R*8 

001002 

RT 

1*2 

001012 

UT 1*2 

001014 

X 

R*4 

001016 






COMMON 

Block 

/INOUT /* : 

Size = 012620 

( 2760. words) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name Type 

Offset 

ARRAY 

L*1 

000000 Eov 

BPDATA 

L*1 

011610 Eov 

IARRAY 1*2 

000000 Eov 

IPDATA 

1*2 

011610 Eov 






Local 

and COMMON Arrays 

♦ 

♦ 





Name 

Type 

Section 

Offset 

— 

--Size 

Dimensions 


ARRAY 

L*1 

INOUT 

000000 

011610 ( 2500.) 

(5000) 


BPDATA 

L*1 

INOUT 

011610 

001010 < 260.) 

(520) 


IARRAY 

1*2 

INOUT 

000000 

011610 < 2500.) 

(2500) 


IDATA 

1*2 

IDATA 

000000 

001002 ( 257.) 

(257) 


IPDATA 

1*2 

INOUT 

011610 

001010 ( 260.) 

(260) 



Subroutines* Functions* Statement and Processor-Defined Functions? 


Name Type 
DDIR R*4 
INTER 1*2 
PARS R*4 


Name Type 
DIRECT R*4 
LIST 1*2 
POSIT R*4 


Name Type 
DISPLA R*4 
LOAD 1*2 
RESEQ R*4 


Name Type 
EDITOR R#4 
MESAGE 1*2 
RUN R*4 


Name Type 
INIT 1*2 
PARK R*4 
SAVE R*4 
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0001 


Ctt*ttttttttt*t*t**t*******tt*ttt*****t*t****tt*tt*ttt***tt*tttttttt*tt*tttt*t 

C 

C MODULE NAME? 

SUBROUTINE INIT 
C 

C PURPOSE? 

C SUCCESSFUL COMPLETION OF THIS SUBROUTINE ESTABLISHES THAT 

C COMMUNICATION PROTOCOLS ARE WORKING PROPERLY, 


INPUT? 

THIS SUBROUTINE IS REQUESTED FROM THE MINC CONSOLE 
PRIOR TO RESETTING THE ROBOT, RESET ROBOT r WAIT TWO 
SECONDS AND THEN PRESS ENTER TO RETURN TO MENU. 


PROCESSING? 

WHEN THE ROBOT IS RESET IT WILL REQUEST A DEVICE IDENT/STATUS 
FROM THE MINC COMPUTER, 

TYPE CODE = 1 

THIS SUBROUTINE WILL RESPOND THAT THE MINC IS OPERATIONAL 
AND WILL TRANSMIT THE APPROPRIATE CODES. 


OUTPUT? 

CODES TRANSMITTED TO ROBOT* 

TYPE CODE = 129 

DEVICE TYPE (1 BYTE) = 2 (MEANS THAT COMPUTER DEVICE) 
DEVICE IDENT, (3 ASCII BYTES) = *MNC' 

SYSTEM STATUS (1 BYTE) = 1 (MEANS OPERATIONAL) 

ASCII MESSG = 'MINC OK - CYR01 VI. O' 

CALLED BY? CYR02 


CALLS TO? DOUT>SEND»RECEVE 

THIS SUBROUTINE WILL CALL DOUT TO CLEAR OUTPUT REGISTER, 

THEN IT CALLS THE RECEVE SUBROUTINE TO WAIT 
FOR THE INITIAL MESSAGE FROM THE ROBOT, 

THE MINC WILL WAIT INBEFINITLY FOR THE ROBOT TO RESPOND, 

TO QUIT WAITING HIT ANY KEY ON THE MINC 

CONSOLE AND THE PROGRAM WILL RETURN TO THE MAIN MENU, 

SEND SUBROUTINE CALLED TO TRANSMIT MESSAGE TO ROBOT CONSOLE. 

SPECIAL INTERFACE REQUIREMENTS? MINC DIGITAL I/O MODULES 

CYRO 750 EXTERNAL DEVICE 
INTERFACE OPTION 


REVISION HISTORY (REVISE THIS NARRATIVE IF NECESSARY) 

DATE PROGRAMMER =====CONTACT/ACTION/REMARKS===== 

7-25-84 FRED R. SIASf JR. (803>-656-3375/DESIGN X PROGRAMMED 

C 5-31-85 FRED R, SIASf JR. (803)-656-3375/NEW NARRATION 

C 
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0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 

0012 

0013 

0015 

0017 

0019 

0020 

0021 

0022 

0023 

0024 


INTEGER*2 IBATA(257) ?RT?WT 
BYTE INPUT 
C 

RT =5 
WT=7 
C 

C FIRST OUTPUT 000000 TO CLEAR DIGITAL OUTPUT REGISTER 

C 

IUNIT=0 

IMASK=’000000 

C 

CALL DOUT < I UNI T f IMASK? IERR? IMASK) 

C 

10 CONTINUE 

C 

WRITE (WT?50> 

50 FORMAT( ' 1 '?/////? ' Press RESET on ROBOT? then weit two seconds?'? 

1 ?/?' then press RETURN key on MINC to return to menu,'? 

2 ////////////?' PRESS RETURN> '?$) 

C 

C - — - — GET FIRST MESSAGE 

C 

CALL RECEVE< IERROR? ILEN? ICSUM? IDATA) 

C 

C TIME OUT ERROR 

IF (IERROR, EQ.l) GOTO 199. 

C 

C CHECKSUM ERROR IF IERROR = 2 

IF (IERROR, EQ. 2) GOTO 2000 
C 

C ILLEGAL ERROR CODE IF GREATER THAN 2 
IF (IERROR, GE, 3) GOTO 3000 
C 

c 

GOTO 5100 
C 

C — 

C 

C HERE IF TIMES OUT AT ANY TIME 
C 

199 CONTINUE 
C 

WRITE (WT ?200) 

200 FORMAT (//? ' '?/?' NO INITIALIZATION MESSAGE FROM ROBOT'?/? 

1 ' PRESS ’RETURN* TO CONTINUE> '?$) 

READ ( RT ? 5230 ) INPUT 
C 

RETURN 

C 
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C 

HERE TO PROCESS CHECKSUM ERROR 

0025 

2000 

CONTINUE 

0026 

p 

WRITE (WT >2010) 

0027 

L 

2010 

FORMAT (// t ' '>/>' CHECKSUM DOES NOT COMPUTE !' ,/, 

1 ' TRY AGAIN? (Y OR N)> '»$) 

0028 


READ (RT » 5230 ) INPUT 

0029 


IF (INPUT. EQ. 'Y' > GOTO 10 

0031 

P 

RETURN 


c 

HERE TO PROCESS ILLEGAL ERROR CODE AND RETURN TO MENU 

0032 

3000 

P 

CONTINUE 

0033 

L 

WRITE (WT >3010) 

0034 

3010 

FORMAT (//> ' '»/>' RECEIVED AN ILLEGAL ERROR CODE FROM RECEVE 

1 ' SUBROUTINE, 'r/> 

2 ' PRESS ’RETURN* TO CONTINUE> ',$) 

0035 


READ (RT *5230) INPUT 

0036 

r 

RETURN 

0037 

L 

5100 

CONTINUE 


C 

P 

HERE TO PROCESS ACCEPTABLE REQUEST 


u 

c 

p 

RETURN STATUS/I DENTIFICAT ION INFO TO ROBOT 

0038 

L 

p 

IDATA(3)=129 


L 

c 

DEVICE TYPE = 1 I.E, THIS IS A COMPUTER 

0039 

P 

IDATA( 4)=1 


L 

c 

r 

DEVICE IDENTIFICATION = ’MNC ’ 

0040 


IDATA(5)=77 

0041 


IDATA(6)=78 

0042 

p 

IDATA(7)=67 


c 

SYSTEM STATUS IS OPERATIONAL 

0043 

p 

IDATA(8)=1 


L 

c 

SEND MESSAGE ’MINC OK - CYR02 V2,2* 

0044 


IDATA ( 9 ) =77 

0045 


IDATA( 10)=73 

0046 


IDATA( 11 )=78 

0047 


IDATA( 12)=67 

0048 


IDATA( 13)=32 

0049 


IDATA(14)=79 

0050 


IDATA( 15)=75 

0051 


I D A T A ( 16)=32 

0052 


IDATA( 17)=45 

0053 


IDATA( 18)=32 


c 

CYR02 

0054 


IDATA( 19)=67 

0055 


IDATA(20)=89 

0056 


IDATA(21)=82 
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0057 IDATA(22>=79 

0058 IDATA(23)=50 

0059 IDATA(24)=32 

C V2 . 2 

0060 IDATA(25)=86 

0061 IDATA(26)=50 

0062 IDATA ( 27 ) =46 

0063 IPATA(28)=50 
C 

0064 IDATA ( 1 ) =26 
C 

0065 ILEN=28 
C 

C WILL TRY TO SEND FIVE TIMES 

C 

0066 DO 5200 1=1 » 5 
C 

0067 CALL SEND ( IERROR, ILEN, IDATA) 

C 

0068 IF (IERROR.EQ.O) GOTO 5500 

C 

0070 5200 CONTINUE 

C 

0071 WRITE (WT ,5210) 

0072 5210 FORMAT (//, ' MINC GAVE UP AFTER 5 TRIES TO SEND!',/) 

C 

0073 WRITE (WT ,5220) 

0074 5220 FORMATS,' PUSH 'RETURN* TO CONTINUE > ',*) 

0075 READ (RT,5230) INPUT 

0076 5230 FORMAT (A4) 

0077 RETURN 
C 

0078 5500 CONTINUE 

C— - GET SECOND MESSAGE 

C 

0079 CALL RECEVE( IERROR, ILEN, ICSUM, IDATA) 

C 

C TIME OUT ERROR 

0080 IF ( IERROR. EQ. 1 ) GOTO 199 
C 

C CHECKSUM ERROR IF IERROR = 2 

0082 IF (IERROR. EQ. 2) GOTO 2000 

C 

C ILLEGAL ERROR CODE IF GREATER THAN 2 

0084 IF (IERROR. GE. 3) GOTO 3000 

C 

c KEE p READING MESSAGES 

0086 DO 7000 1=1,25 
C 

0087 CALL RECEVEdERROR, ILEN, ICSUM, IDATA) 

C 

C TIMEOUT ERROR 

0088 IF (IERROR. EQ.l) GOTO 6000 
C 
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C CHECKSUM ERROR IF IERROR = 2 
0090 IF (IERROR. EQ, 2) GOTO 2000 

C 

C ILLEGAL ERROR CODE IF GREATER THAN 2 
0092 IF (IERROR. GE. 3) GOTO 3000 

C 

0094 7000 CONTINUE 

C 



c 

C 

C 

HERE IF INITIALIZATION COMPLETE AND OK 


0095 


WRITE (WT >5510) 


0096 

5510 

FORMAT (// t ' 't/t' INITIALIZATION COMPLETE AND 

1 ' PRESS ’RETURN* TO CONTINUE> ' ,$) 

OK! 't/t 

0097 


READ (RT >5230) INPUT 


0098 

c 

n 

RETURN 


0099 

L 

6000 

r 

CONTINUE 


0100 

u 

WRITE ( WT 1 6010 ) 


0101 

6010 

FORMAT (//f ' INITIALIZATION COMPLETE AND 

1 ' NO MORE MESSAGES FROM ROBOT' t/r 

1 ' PRESS ’RETURN* TO CONTINUE> 'tt) 

OK! ' f/t 

0102 

p 

READ (RT f 5230) INPUT 


0103 

L 

RETURN 


0104 


END 
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Storage Map for Program Unit INIT 


Local 

Variables? .PSECT 

f DATA? 

Size 

= 001026 ( 

267. 

words ) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

I 

1*2 

001024 

ICSUM 

1*2 

001022 

IERR 

1*2 

001014 

IERROR 

1*2 

001016 

ILEN 

1*2 

001020 

IMASK 

1*2 

001012 

INPUT 

L*1 

001006 

IUNIT 

1*2 

001010 

RT 

1*2 

001002 

WT 

1*2 

001004 







Local 

and COMMON Arrays 

« 

* 






Name 

Type 

1 Section 

Offset 

— 

— Size 

Dimensions 


IDATA 

1*2 

$DATA 

000000 

001002 ( 257 » ) 

(257) 




Subroutines? Functions? Statement and Processor-Defined Functions! 

Name Type Name Type Name Type Name Type Name Type 

DOUT R*4 RECEVE R*4 SEND R*4 


ooooooooooooooooooorjooooooooooonoooooooono 
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0001 


C # * * *** ***** * ******* ****** * ** ******** *** ***************** * * * # #*# * ************ * 
C 

C MODULE NAME! 

SUBROUTINE SAVE 


purpose: 

THIS ROUTINE ACCEPTS A PROGRAM NUMBER TO BE SAVED FROM THE TERMINAL, 
THEN A REQUEST IS TRANSMITTED TO THE ROBOT AND THE COMPUTER 
RECEIVES AND FILES THE PROGRAM RETURNED TO IT * 

INPUT? 


PROGRAM REQUESTS ROBOT PROGRAM NUMBER FROM USER AT MINC CRT. 

THEN REQUEST A SIX CHARACTER FILE NAME TO BE USED WHEN FILING 

ON DISKETTE ON MINC. 

processing: 

handshaking: 

Computer transmits Type Code 193 - REQUEST TO SAVE 
PROGRAM TO COMPUTER. 

The computer waits for Tape Code 66 - SAVE PROGRAM 
TO COMPUTER ACKNOWLEDGE. 

The robot then transmits the first block of data 
(block 0) after a brief pause. 

Then computer accepts and files a seauence of blocks 
using Type Code 193 to indicate when 
it is ready for each block. 

Each block of data transmitted to the robot has a header 
containing the Type Code 67 followed ba 
a seouential block number and the actual 
N/C program data. 


output: 

WRITES PROGRAM ON MINC DKJ DISKETTE USING NAME ACCEPTED 
FROM MINC KEYBOARD. ' .CYR* SUFFIX ADDED BY THIS ROUTINE. 

CALLED BY: CYR02 

CALLS TO: REQTS , IGETC, I CLOSE, IFREEC, IRAD50,SCOPY,RECEVE, 

INSERT, DISKSV 


SPECIAL INTERFACE REQUIREMENTS: 


USES MINC DIGITAL I/O MODULE 


REVISION HISTORY (REVISE THIS NARRATIVE IF NECESSARY) 

DATE PROGRAMMER =====CONTACT/ACTION/REMARKS===== 

C 6-28-84 FRED R. SIAS, JR. <803)656-3375/SYSTEM DESIGN/PROGRAMMED 

C 6-01-84 FRED R. SIAS, JR. (803)656-3375/REVISED NARRATION 

C 6-01-84 FRED R, SIAS, JR. <803)656-3375/CHANGED TO FILENAMES 

C 7-22-85 J. KEITH MCELVEEN (803)656-3375/REVISED NARRATION 

C 
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C 


0002 


0003 


0004 

C 

0005 


0006 


0007 

C 

0008 


0009 

C 

0010 

10 


C 

0011 


0012 

100 

0013 


0014 

110 


C 

0015 


0017 


0019 

1 / 

114 

0020 


0021 

115 


C 

0022 


0023 

119 

0024 

C 

0026 

C 


C 


C 

0027 

C 

0028 


0029 


0031 

0032 


0034 


0035 


0037 


0038 

120 

0039 


0040 

130 

0041 

C 

0043 


0044 


0046 

0047 

C 


INTEGER*2 NUMBER* IBAT A (257) * RT* WT »FILNO* HEABER(3) 
BYTE LERROR* INPUT*FILNAM(15) *NAMFIL(7) 

REAL*8 FILE 

CALL SCOPY ( 'DY1 CYR'*FILNAM) 

BATA FILNAMC13) /OO/ 

BATA NAMFIL ( 7 ) /OO/ 


WT = 7 
RT=5 

CONTINUE 
WRITE (WT * 100) 

FORMAT(///*' Input NUMBER of Program in robot to be saved*'* 

1 */»' To EXIT* press RETURN .> '*$) 

REAB ( RT * 1 10 ) NUMBER 
FORMAT ( 12) 

IF(NUMBER.EQ.O) RETURN 

IF (NUMBER.LT >1 .OR. NUMBER. GT *9) GOTO 400 

CONTINUE 
WRITE (WT* 115) 

FORMAT(//*' Tape NAME of Program to be saved on diskette> '*$) 

READ (RT * 119) (NAMFIL(I) *1=1*6) 

FORMAT ( 6A1 ) 

IF (NAMFIL(l) .EQ. ' ') RETURN 
CALL INSERT ( NAMFIL* FILNAM * 4* 6) 

NOU CHECK TO SEE IF FILE EXISTS 
CALL IRAB50< 12»FILNAM*FILE) 

ICHAN=IGETC() 

IF (ICHAN.LT. 0) STOP 'NO CHANNEL' 

IERROR=IFETCH(FILE) 

IF (IERROR.NE.O) STOP 'BAB FETCH' 

IERROR=LOOKUP( I CHAN* FILE) 

IF (IERR0R.EQ.-2) GOTO 150 
WRITE (WT* 120) 

FORMAT ( ' File already exists! OVERWRITE IT? (Y or N)> '*$) 

REAB (RT , 130 ) INPUT 
FORMAT(Al) 

IF (INPUT. EQ.'Y') GOTO 150 
CALL I CLOSE ( I CHAN* I ERROR) 

IF ( IERROR » LT . 0 ) STOP 'ERROR CLOSING CHANNEL' 

CALL IFREEC ( ICHAN) 

GOTO 114 
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0048 

150 

p 

CONTINUE 

0049 

L 

CALL I CLOSE ( I CHAN » I ERROR) 

0050 


IF ( IERROR . LT. 0 ) STOP 'ERROR CLOSING CHANNEL 

0052 

p 

CALL IFREEC ( ICHAN) 

0053 

160 

p 

CONTINUE 


L. 

c 

p 

NOW TRANSHIT A ‘REQUEST TO SAVE* TO ROBOT 

0054 

L 

p 

CALL REQTS(NUMBER> IERROR) 

0055 

L 

IF (IERROR. EQ.l) GOTO 2100 

0057 


IF (IERROR. EQ. 2) GOTO 2200 

0059 

p 

IF (IERROR. GE. 3) GOTO 2300 


c 

p 

NOW WAIT FOR SAVE ACKNOWLEDGE - TYPE CODE 6. 

0061 

L 

200 

p 

CONTINUE 

0062 

L 

p 

CALL RECEVE ( IERROR > ILEN> ICSUM> IDATA) 

0063 

L 

IF (IERROR. EQ.l) GOTO 3100 

0065 


IF (IERROR. EQ. 2) GOTO 3200 

0067 

p 

IF (IERROR. GE. 3) GOTO 3300 

0069 


ITYPE=IDATA(3> 

0070 


IACK=IDATA(4> 

0071 


IPNUM=IDATA(5> 

0072 


ISIZE=IDATA(6)+256*IDATA<7) 


FORTRAN IV 


V02.5-2 


Thu 08-Msa-86 13 : 15 J 00 


PAGE 004 


0073 

0075 


0077 

0079 

0081 


0082 

0083 

0084 

0086 

0087 

0088 


0089 

0090 

0092 

0093 
0095 
0097 

0099 


0100 

0101 

0103 

0105 

0107 

0108 
0110 
0111 


C 

C WRONG MESSAGE TYPE RECEIVED 
C 

IF (ITYPE.NE.66) GOTO 1100 
C 

IF (IPNUM.NE. NUMBER) GOTO 1200 
C 

C NOT READY TO RECEIVE CODE = 0 
C 

IF (IACK.EQ.O) GOTO 1300 
IF (IACK.GE.2) GOTO 1000 
C 

IBLKCT=0 

C 

C SENDS BLOCK NUMBER AND 252 BYTES OF DATA IN EACH BLOCK 
C 

I TOTBK=I SIZE/252 
IREM=ISIZE-IT0TBK*252 
IF (IREM.NE.O) IT0TBK=IT0TBK+1 
C 

HEABEK< 1 >=ITOTBK 
HEADER(2)=IREM 
HEADER(3)=ISIZE 
C 

C NOW OPEN FILE 
C 

C ■■ FILE LOOP 

C 

DO 300 1=1 > ITOTBK 
C 

IF (I.EQ.l) GOTO 240 
C 

CALL REOTS ( NUMBER > I ERROR) 

C 

IF (IERROR.EQ . 1 ) GOTO 2100 
IF (IERROR.EQ. 2) GOTO 2200 
IF (IERR0R.GE.3) GOTO 2300 
C 

240 CONTINUE 
C 

C STARTS RECEIVING PROGRAM HERE 
C 

CALL RECEVE< I ERROR » ILEN* ICSUM» IDATA) 

C 

IF (IERROR.EQ. 1) GOTO 3100 
IF (IERROR.EQ. 2) GOTO 3200 
IF (IERR0R.GE.3) GOTO 3300 
C 

ITYPE=IDATA(3) 

IF ( ITYPE.NE. 67) GOTO 1100 
IBL0CK=IDATA(4) 

IF ( IBLOCK.NE, IBLKCT) GOTO 4100 
C 

C PUT ARRAY ON DISK. 
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C 

0113 

0114 

C 

0116 

C 

0117 300 
C 

C 

c 

0118 

C 

0119 400 

0120 402 

0121 

C 

0122 499 

0123 

0124 500 

0125 

0126 

C 
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CALL DISKSV(FILNAM» HEADER » IDATA»LERROR) 
IF (LERRQR.EQ. 'TRUE' ) GOTO 910 

IBLKCT=IBLKCT+1 

CONTINUE 


END OF FILE LOOP 


GOTO 499 
WRITE (WT » 402) 

FORMAT (//> ' ONLY PROGRAM NUMBERS 1-9 ACCEPTABLE.') 

GOTO 10 

CONTINUE 

WRITE (WT f 500) IPNUM 

FORMAT(//» ' PROGRAM NO, '>14,' SUCCESSFULLY RECEIVED AND FILED' »/» 
1 ' PRESS ‘RETURN* TO GOT MAIN MENU.> '»$) 

READ ( RT » 904 ) INPUT 
RETURN 
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c 

C 

C 

p 

ALL OF THE VARIOUS ERROR MESSAGES FOLLOW: 

0127 

L 

900 

CONTINUE 

0128 


WRITE (WT » 902) 

0129 

902 

FORMAT (//» ' FATAL ERROR! FILE WILL BE DELETED* ' >/r 
1 ' PRESS 'RETURN* TO GOTO MAIN MENU*> Sf) 

0130 


READ (RT >904) INPUT 

0131 

904 

P 

FORMAT ( 14 ) 

0132 

L 

p 

RETURN 

0133 

L 

910 

WRITE (WT >912) 

0134 

912 

FORMAT (//? ' ERROR RECEIVED FROM SUBROUTINE DISKSV') 

0135 

P 

GOTO 900 

0136 

L 

1000 

WRITE (WT » 1002) 

0137 

1002 

FORMAT (//» ' ILLEGAL ACKNOWLEDGE CODE RECEIVED*') 

0138 

p 

GOTO 900 

0139 

c 

1100 

WRITE ( WT » 1102 ) 

0140 

1102 

FORMAT (//*' WRONG MESSAGE TYPE RECEIVED!') 

0141 

p 

GOTO 900 

0142 

c 

1200 

WRITE (WT*1202) 

0143 

1202 

FORMAT (//> ' WRONG PROGRAM NUMBER RETURNED BY ROBOT!') 

0144 

P 

GOTO 900 

0145 

w 

1300 

WRITE (WT » 1302) 

0146 

1302 

FORMAT (//* ' ROBOT NOT READY TO RECEIVE. ' * 

1 ' TYPE ’RETURN' TO TRY AGAIN> ' >$) 

0147 


READ (RT»904) INPUT 

0148 

P 

GOTO 160 

0149 

Lr 

2100 

WRITE (WT >2102) 

0150 

2102 

FORMAT (//> ' TIME OUT ERROR WHILE WAITING FOR',/> 
1 ' ACKNOWLEDGE FROM ROBOT.') 

0151 

P 

GOTO 900 

0152 

L 

2200 

WRITE (WT>2202) 

0153 

2202 

FORMAT ( // » ' LRC ERROR MESSAGE RETURNED AFTER TRANSMISSION 

0154 

P 

GOTO 900 

0155 

L 

2300 

WRITE ( WT » 2302 ) IERROR 

0156 

2302 

FORMAT (// > ' ILLEGAL ACKNOWLEDGE C0DE'»I4»' RECEIVED ' > 
1 ' AFTER TRANSMISSION TO ROBOT.') 

0157 

3100 

WRITE ( WT* 3102 ) 

0158 

3102 

FORMAT (//> ' FIVE SECOND TIMEOUT OCCURED DURING RECEIVE.') 

0159 

p 

GOTO 900 

0160 

L 

3200 

WRITE ( WT > 3202 ) 

0161 

3202 

FORMAT (//» ' CHECKSUM ERROR CALCULATION PRODUCED ERRORS 


1 ' DURING RECEIVE*') 
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0162 GOTO 900 
C 

0163 3300 WRITE (WTr3302) IERROR 

0164 3302 FORMAT ( // » ' ILLEGAL ERROR C00E'fI4f' RETURNED FROM', 

1 ' RECEIVE SUBROUTINE.') 

0165 GOTO 900 
C 

0166 4100 WRITE (WT»4102) IBLOCK » IBLKCT 

0167 4102 FORNAT(//f ' BLOCK COUNT TRANSMITTED ('fI4f')'» 

1 ' DOES NOT MATCH EXPECTED BLOCK ('fI4f').') 

0168 GOTO 900 
C 

0169 END 
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Storage Map for Program Unit SAVE 


Local 

Variables* .PSECT 

$DATA* 

Size 

= 001114 < 

294. words) 


Name 

Tape 

Offset 

Name 

Type 

Offset 


Name 

Type 

Offset 

FILE 

R*8 

001052 

FILNO 

1*2 

001046 


I 

1*2 

001062 

IACK 

1*2 

001076 

IBLKCT 

1*2 

001104 


IBLOCK 

1*2 

001112 

ICHAN 

1*2 

001064 

ICSUM 

1*2 

001072 


IERROR 

1*2 

001066 

ILEN 

1*2 

001070 

INPUT 

L*1 

001051 


IPNUM 

1*2 

001100 

IREM 

1*2 

001110 

I SIZE 

1*2 

001102 


ITOTBK 

1*2 

001106 

ITYPE 

1*2 

001074 

LERROR 

L*1 

001050 


NUMBER 

1*2 

001040 

RT 

1*2 

001042 

WT 

1*2 

001044 





Local 

and COMMON Arrays 

« 

♦ 







Name 

Type Section 

Offset 

— 

■ — Size— 

— 

Dimensions 


FILNAM 

L*1 

*DATA 

001010 

000017 ( 

8.) 

(15) 



HEADER 

1*2 

SDATA 

001002 

000006 < 

3.) 

(3) 



I DATA 

1*2 

$DATA 

000000 

001002 ( 257.) 

(257) 



NAMFIL 

L*1 

IDATA 

001027 

000007 ( 

4.) 

(7) 




Subroutines* Functions* Statement and Processor-Defined Functions? 


Name 

Type 

Name 

Type 

Name 

Type 

Name 

Type 

Name 

Type 

DISKSV 

R*4 

ICLOSE 

1*2 

IFETCH 

1*2 

IFREEC 

1*2 

IGETC 

1*2 

INSERT 

SCOPY 

1*2 

R*4 

IRAD50 

1*2 

LOOKUP 

1*2 

l 

RECEVE 

R*4 

REQTS 

R*4 


C - 
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c 

C 

0001 SUBROUTINE REQTS( NUMBER* ERROR) 

C 

0002 INTEGER*2 IDATA(257) »NUMBER*ERROR 
C 

C SEND REQUEST TO SAVE PROGRAM CNUMBER] TO ROBOT 

C 

C LENGTH OF MESSAGE 

0003 IDATA( 1 )=2 

C SEQUENCE NO. SET TO ZERO 

0004 IDATA(2)=0 

C SET TYPE CODE 

0005 IDATA(3)=1?3 

C SEND PROGRAM NUMBER 

0006 IDATA(4)sNUMBER 
C 

0007 ILEN=4 
C 

0008 CALL SEND (I ERROR * ILEN* I DATA) 

C 

000? ERROR=IERROR 

C 

0010 RETURN 

0011 END 
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Storage Mae for Program Unit REQTS 


Local Variables? .PSECT *DATA? Size = 001012 ( 261. words) 

Name Tape Offset Name Type Offset Name Tape Offset 

ERROR 1*2 0 000002 IERROR 1*2 001010 ILEN 1*2 001006 

NUMBER 1*2 0 000000 

Local and COMMON Arrays? 

Name Tape Section Offset Size Dimensions 

IDATA 1*2 f DATA 000004 001002 ( 257.) (257) 

Subroutines? Functions? Statement and Processor-Defined Functions* 

Name Tape Name Tape Name Type Name Tape Name Tape 
SEND R*4 
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Ctt*t**t**tttt**t*t*t*t*tttt*t*t*ttttttt*****t****tt****t*tt****t**t********tt 

c 

C MODULE NAME? 

0001 SUBROUTINE LOAD 

C 

c purpose; 

c 

C THIS ROUTINE ALLOWS THE USER TO SELECT A PARTICULAR PROGRAM 

C TO BE LOADED FROM THE MINC DISKETTE TO THE ROBOT, 

C THEN THE PROGRAM IS TRANSMITTED TO THE ROBOT WITH 

C APPROPRIATE HANDSHAKING. 

C 

c input; 

c 

C PROGRAM REQUESTS THE NAME OF THE DISKETTE FILE CONTAINING 

C THE PROGRAM TO BE LOADED, PROGRAM ASSUMES '.CYR* FILENAME 

C EXTENSION. THEN IT REQUESTS THE NUMBER 

C BETWEEN 1 AND 9 BY WHICH THE PROGRAM WILL BE REFERENCED 

C IN THE ROBOT. 

C 

c processing; 

C 

c handshaking; ' 

C Computer transmits Tape Code 194 - REQUEST TO LOAD 

C PROGRAM FROM COMPUTER, 

C. The computer waits for Tape Code 65 - LOAD PROGRAM 

FROM COMPUTER ACKNOWLEDGE, 

When computer is reada to transmit the program it 

transmits a block of code proceeded 
ba Tape Code 195. 

Then, the robot accepts and files a seouence of blocks 
using Tape Code 65* LOAD PROGRAM FROM 
COMPUTER ACKNOWLEDGE* to indicate when 
it is reada for each block, 

OUTPUT; LOADS PROGRAM FROM MINC COMPUTER TO ROBOT MEMORY, 

CALLED BY5 CYR02 

CALLS T05 DISKRD*SEND* RECEVE*INSERT* SCOPY 

SPECIAL INTERFACE REQUIREMENTS 5 USES MINC DIGITAL I/O MODULES. 

REVISION HISTORY (REVISE THIS NARRATIVE IF NECESSARY) 

DATE PROGRAMMER =====CONTACT/ACTION/REMARKS===== 

7-13-84 FRED R, SIAS* JR. < 803 ) -656-3375/DESIGN AND PROGRAM 

6-03-85 FRED R. SIAS* JR. <803)-656-3375/REV, NARRATION t PROG, 

7-23-85 J. KEITH MCELVEEN (803)656-3375/REVISED PROGRAM 
9-6-85 FRS ADDITIONAL DEBUGGING 
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C 

0002 INTEGER*2 NUMBER* I DATA (257) , HEADER (3) » RT, WT , LSI ZE » H SIZE 

0003 INTEGER*2 ILEN, IBLQCK, IERROR 

0004 LOGICALKl LERROR 

0005 BYTE INPUT, FILNAM(15) * NAMFIL ( 7) 

C 

0006 CALL SCOPY ( 'DY1 CYR ' »FILNAM) 

0007 BATA FILNAN( 13) /OO/ 

0008 BATA NAMFIL ( 7) 700/ 

C 

0009 UT=7 ^ 


0010 

0011 

0012 

0013 


0014 

0015 

0016 

0018 

0019 

0020 
0021 


0022 


0024 

0025 


0026 

0027 


0028 


0029 

0030 

0031 


0033 

0034 

0035 

0036 

0037 


RT=5 

C 

10 CONTINUE 
C 

WRITE (WT , 100) 

100 FORMAT (///,' Input FILE NAME of program to be loaded*', 

1 /,' To EXIT, press RETURN. > ',$) 

C 

REAB (RT ,105) (NAMFILU ) , 1 = 1 ,6) 

105 F0RMAT(6A1) 

C 

IF (NAMFIL(l) *EQ* ' ') RETURN 
C 

WRITE (WT, 110) 

110 FORMAT (///, ' Input NUMBER program will have in ROBOT. > ',*> 
READ (RT, 115) NUMBER 
115 FORMAT ( 12) 

C 

IF (NUMBER.LT ,1. OR. NUMBER, GT ,9) GOTO 400 
C 

CALL INSERT (NAMFIL,FILNAM,4,6) 

C 

120 CONTINUE 
C 

C FIRST RETRIEVE FILE ANB GET HEADER SO KNOW PROGRAM SIZE 
C 

WRITE ( WT , 1 18 ) (FILNAM ( I ) , 1=1 , 14 ) 

118 FORMAT (//, ' NOW OPENING ',14A1,/) 

C 

C —PASS A ZERO TO. INDICATE ONLY WANT HEADER 

HEADER ( 3) =0 
C 

LERROR='FALSE' 

CALL DISKRD (FILNAM, HEADER, IBATA, IBLOCK, LERROR) 

IF (LERROR, EQ, 'TRUE') GOTO 910 
C 

C NOW CALCULATE HSIZE ANB LSIZE 
C 

ISIZE=HEADER ( 3 ) 

ITOTBK=HEADER( 1 ) 

IREM=HEABER(2) 

HSIZE=ISIZE/256 

LSIZE=ISIZE-HSIZE*256 
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0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 
0050 
0052 


0054 


0055 

0056 
0058 
0060 


0062 

0063 

0064 


0065 

0067 


0069 

0071 


C 

C NOW TRANSMIT A 'REQUEST TO LOAD* TO ROBOT 
C 

IDATA( 1 ) =4 
IDATA(2)=0 
IDATA(3)=194 
IDATA(4)=NUMBER 
IDATA(5)=LSIZE 
IBATA ( 6 ) =HSIZE 
ILEN=6 
C 

WRITE (WT » 200) 

200 FORMAT!/*' ',/,' TRANSMIT REQUEST TO LOAD CODE 194.',/) 

C 

CALL SEND! I ERROR, I LEN, I DATA) 

C 

IF (IERROR.EQ. 1 ) GOTO 2100 
IF ! IERROR.EQ. 2) GOTO 2200 
IF (IERR0R.GE.3) GOTO 2300 
C 

C - TRANSMIT LOOP.* 

C 

DO 300 IBLKCT=1 , ITOTBK 
C 

C NOW WAIT FOR LOAD ACKNOWLEDGE - TYPE CODE 65 
C 

C WRITE (WT ,210) 

C210 FORMAT!/,' ',/,' RECEIVE LOAD ACKNOWLEDGE TYPE CODE 65.',/) 
C 

CALL RECEVE! IERROR, ILEN, ICSUM, IDATA) 

C 

IF (IERROR. EQ.l) GOTO 3100 
IF (IERROR.EQ. 2) GOTO 3200 
IF (IERROR. GE. 3) GOTO 3300 
C 

ITYPE=IDATA(3) 

IACK=IDATA ( 4 ) 

IPNUM=IDATA(5) 

C 

C WRONG MESSAGE TYPE RECEIVED 

C 

IF (ITYPE.NE.65) GOTO 1100 
C 

IF (IPNUM.NE. NUMBER) GOTO 1200 
C 

C NOT READY TO LOAD CODE = 0 

C 

IF (IACK.EQ.O) GOTO 1300 
IF (IACK.GE.2) GOTO 1000 
C 

C FOUND IACK=1 

C 

C REACH THIS POINT IF READY TO START SENDING PROGRAM TO ROBOT 
C 
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0073 

0074 

0075 


0077 

0078 

0079 

0080 

0081 


0082 

0084 

0086 

0088 


C SENDS BLOCK NUMBER AND 252 BYTES OF DATA IN EACH BLOCK 
C 

C STARTS SENDING REST OF PROGRAM HERE 
C CALLS DISKRD WITH IBLOCK SET EQUAL TO EXPECTED BLOCK 

C AND CHECKS EACH READ BLOCK AGAINST BLOCK COUNT AFTER 

C RETURNING FROM SUBROUTINE DISKRD 

C 

IBL0CK=IBLKCT-1 

CALL DISKRD(FILNAM? HEADER? I DATA? I BLOCK ?LERROR) 

C 

IF (IBLOCK. NE.IDATA(4)) GOTO 4100 
C 

C SET TYPE CODE TO 195 

C 

IDATA(3) =195 
ILEN=IDATA(l)+2 
C 

WRITE (WT ?240) IBLOCK 

240 FORMAT < ' 't/t' SENDING BLOCK ' » 14 » ' OF PROGRAM.') 

C 

CALL SEND ( I ERROR? ILEN? IDATA) 

C 

IF (IERR0R.EQ.1) GOTO 2100 
IF ( IERR0R.EQ.2) GOTO 2200 
IF (IERR0R.GE.3) GOTO 2300 
C 

300 CONTINUE 

C- - END LOOP 

C 

C - 

C NOW WAIT FOR LOAD ACKNOWLEDGE - TYPE CODE 65 

C 

C WRITE (WT?210) 

C210 FORMAT(/? ' '?/?' RECEIVE LOAD ACKNOWLEDGE TYPE CODE 65.'?/) 

C 

C CALL RECEVE( IERROR? ILEN? ICSUM? I DATA) 

C 

C IF (IERROR, EQ.l) GOTO 3100 

C IF (IERROR, EQ. 2) GOTO 3200 

C IF (IERROR. GE, 3) GOTO 3300 

C 

C ITYPE=IDATA(3) 

C IACK=IDATA(4) 

C IPNUM=IDATA(5) 

C 

C WRONG MESSAGE TYPE RECEIVED 

C 

C IF (ITYPE.NE.65) GOTO 1100 ^ 

C 

C IF (IPNUM.NE. NUMBER) GOTO 1200 

C 

C NOT READY TO LOAD CODE = 0 

C 

C IF (IACK.EQ.O) GOTO 1300 
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0089 

0090 

0091 

0092 

0093 

0094 

0095 


C IF (IACK.GE.2) GOTO 1000 

C 

C FOUND IACK=1 

C 

C 

WRITE (UT » 310 ) (NAMFIL( I ) ? 1 = 1 * 6 ) » NUMBER 
310 FORMAT (/» ' FILE '»6A1>' SUCCESSFULLY LOADED AS PROG.', 

1 ' NO. ' , I3» /» ' PRESS ‘RETURN 1 TO GOTO MAIN MENU.> ',!) 

READ (RT f 904 ) INPUT 
RETURN 
C 

400 WRITE (WT t 402) 

402 FORMAT (// 1 ' ONLY PROGRAM NUMBERS 1-9 ACCEPTABLE.') 

GOTO 10 
C 
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c 

C 

C 

p 

ALL OF THE VARIOUS ERROR MESSAGES FOLLOW: 

0096 

L 

900 

CONTINUE 

0097 


WRITE (WT >902) 

0098 

902 

FORMAT ( // * ' FATAL ERROR ! ' */> 

1 ' PRESS RETURN TO GOTO MAIN MENU> '**) 

0099 


READ (RT >904) INPUT 

0100 

904 

r 

FORMAT ( 14 ) 

0101 

p 

RETURN 

0102 

L 

910 

CONTINUE 

0103 


WRITE (WT *912) 

0104 

912 

FORMAT ( ' '*//>' ERROR RECEIVED FROM SUBROUTINE DISKRD ' ) 

0105 

r 

GOTO 10 

0106 

V 

1000 

WRITE (WT >1002 ) 

0107 

1002 

FORMAT (//* ' ILLEGAL ACKNOWLEDGE CODE RECEIVED* ' ) 

0108 

p 

GOTO 900 

0109 

C 

1100 

WRITE (WT *1102) 

0110 

1102 

FORMAT (//*' WRONG MESSAGE TYPE RECEIVED !' ) 

0111 

P 

GOTO 900 

0112 

t 

1200 

WRITE (WT * 1202) 

0113 

1202 

FORMAT (//* ' WRONG PROGRAM NUMBER RETURNED BY ROBOT!') 

0114 

P 

GOTO 900 

0115 

1/ 

1300 

WRITE (WT * 1302) 

0116 

1302 

FORMAT (//* ' ROBOT NOT READY TO LOAD PROGRAM.'* 
1 ' TYPE “RETURN 1 TO TRY AGAIN> '*$) 

0117 


READ (RT* 904 ) INPUT 

0118 

p 

GOTO 120 

0119 

L 

2100 

WRITE (WT >2102) 

0120 

2102 

FORMAT (//* ' TIME OUT ERROR WHILE WAITING FOR SEND'*/* 
1 ' ACKNOWLEDGE FROM ROBOT.') 

0121 

P 

GOTO 900 

0122 

L 

2200 

WRITE (WT *2202) 

0123 

2202 

FORMAT (//* ' LRC ERROR MESSAGE RETURNED AFTER TRANSMISSION 

0124 

p 

GOTO 900 

0125 

2300 

WRITE (WT *2302) IERROR 

0126 

2302 

FORMAT (//* ' ILLEGAL ACKNOWLEDGE C0DE'*I4*' RECEIVED'* 
1 ' AFTER TRANSMISSION TO ROBOT.') 

0127 

3100 

WRITE (WT *3102) 

0128 

3102 

FORMAT (//> ' FIVE SECOND TIMEOUT OCCURED DURING RECEIVE.') 

0129 

p 

GOTO 900 

0130 

L 

3200 

WRITE (WT * 3202) 

0131 

3202 

FORMAT <//* ' CHECKSUM ERROR CALCULATION PRODUCED ERROR'* ‘ 
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0132 

0133 

0134 


0135 

0136 

0137 

0138 


013? 


1 ' DURING RECEIVE.') 

GOTO 900 
C 

3300 WRITE (WT 1 3302) IERROR 

3302 FORMAT (//* ' ILLEGAL ERROR CODE' *14*' RETURNED FROM'* 

1 ' RECEIVE SUBROUTINE.') 

GOTO 900 
C 

4100 WRITE (WT * 4102) 

4102 FORMAT (//* ' BLOCK NUMBER AND BLOCK COUNT DO NOT MATCH.') 

GOTO 900 
C 

END 
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Local 1 

Variables* .PSECT 

$DATA* 

Size 

= 001110 < 

292. words) 


Name 

Type 

Offset 

Name 

Type 

Offset 


Name 

Type 

Offset 

HSIZE 

1*2 

001054 

I 

1*2 

001066 


IACK 

1*2 

001104 

IBLKCT 

1*2 

001076 

IBLOCK 

1*2 

001060 


ICSUM 

1*2 

001100 

IERROR 

1*2 

001062 

ILEN 

1*2 

001056 


INPUT 

L*1 

001065 

IPNUM 

1*2 

001106 

IREM 

1*2 

001074 


ISIZE 

1*2 

001070 

ITOTBK 

1*2 

001072 

ITYPE 

1*2 

001102 


LERROR 

L*1 

001064 

LSIZE 

1*2 

001052 

NUMBER 

1*2 

001044 


RT 

1*2 

001046 

WT 

1*2 

001050 








Local . 

and COMMON Arrays? 








Name 

Type Section 

Offset 

— 

■ — Size-- 

— 

Dimensions 


FILNAM 

L*1 

$DATA 

001010 

000017 ( 

8.) 

(15) . 



HEADER 

1*2 

$DATA 

001002 

000006 < 

3.) 

(3) 



IDATA 

1*2 

$DATA 

000000 

001002 ( 257.) 

(257) 



NAMFIL 

L*1 

$DATA 

001027 

000007 ( 

4.) 

(7) 




Subroutines* Functions* Statement and Processor-Defined Functions*. 


Name Type 
DISKRP R#4 


Name Type 
INSERT 1*2 


Name Type 
RECEVE R*4 


Name Type 
SCOPY R*4 


Name Type 
SEND R*4 
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0001 




C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


MODULE NAME 

purpose: 

input: 

processing: 

output: 

CALLED BY? 

calls to: 


SUBROUTINE DISKSV(NAMFIL>HEADER>IDATA>LERROR) 

TO SAVE SUCCESSIVE BLOCKS OF ROBOT PROGRAM ON DISKETTE 

IS PASSED HEADER AND SUCCESSIVE BLOCKS OF DATA 

KEEPS TRACK OF NUMBER OF BLOCKS OF DATA 

WRITES HEADER ON DISKETTE ONE TIME PILLOWED BY THE 
SUCCESSIVE BLOCKS OF PROGRAM DATA, 

SAVE 

NONE 


SPECIAL INTERFACE REQUIREMENTS: NONE 


REVISION HISTORY 
DATE 

6- 20-85 

7- 02-85 

7-23-85 J, 


(REVISE THIS NARRATIVE IF NECESSARY) 

PROGRAMMER =====CONTACT/ACTION/REMARKS= 

FRED R, SIAS> JR. (803)656-3375/ NARRATION 

FRS NULLED ARRAY AFTER DATA 

KEITH MCELVEEN (803)656-3375/REVISEB PROGRAM 
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0002 

0003 

0004 

0005 

0006 

C 

0007 

C 

0008 

C 

0009 

0010 

C 

0011 

C 

0012 

0013 

C 

0014 

C 

c 

c 

0015 

0016 

0017 10 
C 
C 
C 

0018 

C 

C 

c 

0019 

0020 
0021 

C 

0022 

C 

0023 

C 

c 

c 

0025 

C 

C 

C 

0027 200 
C 

C 

C 

0028 

C 

0029 

0031 


L0GICAU1 LERROR 

BYTE CR , NAMFIL ( 15) , ARRAY ( 5000 ) , BPDATA(520) 

INTEGER*2 I ARRAY< 2500 ) » IPDATAt 260 ) , ITOTBK 

INTEGERS HEADER < 3) , I DATA (260) , LASTBK, IREH, ISIZE , IBLOCK,RT , WT 
REAL*8 FILEjFILEI 

DATA FILE1 /12RDY1PR0GRMCYR/ 

COMMON /INOUT/ ARRAY, BPDATA 

EQUIVALENCE (ARRAY, IARRAY) 

EQUIVALENCE ( BPDATA , IPDATA ) 

DATA CR 7*015/ 


WT = 7 
RT=5 


IERR0R=IRAD50( 12, NAMFIL, FILE) 

TAKE BLOCK OF DATA AND PUT IN LOCAL ARRAY 

DO 10, 1=1,256 
IPDATA( I)=IDATA( I ) 

CONTINUE 

NOW DECIDE WHAT TO DO 
IBLOCK=IDATA( 4 > 

HERE TO GET HEADER AND FIRST BLOCK OF DATA 

ITOTBK=HEADER< 1 ) 

IREM =HEADER(2) 

ISIZE =HEADER(3) 

LASTBK=IT0TBK-1 

IF (IBLOCK.EQ.O) INDEX=1 

FIRST BLOCK SAME AS LAST 

IF (IBLDCK*EQ> LASTBK) GOTO 300 

PUT THIS BLOCK IN BIG ARRAY 

CONTINUE 

USE THIS FOR FULL BLOCKS OF DATA 
DO 299, 1=5,256 

IF (IPDATA (I ) ,EQ. *012) ARRAY( INDEX) =CR 
IF (IPDATA(I) .EQ. *012) INDEX=INDEX+1 
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C 

0033 

0034 

C 

0035 299 
C 

C 

C 

0036 

C 

0038 

C 

0039 300 
C 

C 

C 

0040 

C 

0041 
0043 

C 

0045 

0046 

C 

0047 399 
C 

0048 400 
C 

C 

C 

0049 

0050 

0051 

0052 

0053 

C 

C 

0054 450 


ARRAY* INDEX )=BPDATA< 1*2-1) 
INDEX=INDEX+1 

CONTINUE 

RETURN IF NOT LAST BLOCK OF DATA 
IF ( IBLOCK.NE.LASTBK) RETURN 
GOTO 400 
CONTINUE 

USE THIS FOR LAST BLOCK OF DATA 
DO 399» I=5i IREM+4 

IF < IPDATA( I ) #EB» ' 012) ARRAY ( INDEX )=CR 
IF ( I PD AT A ( I ) *EQ. *012) INDEX=INDEX+1 

ARRAY* INDEX) =BPDATA< 1*2-1 ) 
INDEX=INBEX+1 

CONTINUE 

CONTINUE 

ADD NULLS TO END OF BLOCK OF ARRAY 

ILAST=INDEX-1 
IADD=MOD(ILAST »512) 

IEND=INDEX+IADD 
DO 450> I=INDEX> IEND 
ARRAY ( I )=0 


CONTINUE 
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C 

C 

0055 470 
C 

0056 

0057 

C 

C 

C 

005? 

0060 

0061 

0063 

C 

0065 480 
C 

0066 

0067 

C 

0068 

C 

C 

C 

C 

0070 

0071 

0073 

C 

0074 500 
C 

C 

C 

0075 

0076 

C 

C 

C 

0077 1000 
C 

0078 1002 
007? 

C 

0080 1020 
0081 

0082 1022 

0083 

C 

0084 1030 

0085 

0086 1032 

0087 

C 

0088 1040 
008? 


FILE ALL IN ARRAY, READY TO SAVE 


CONTINUE 

ICHAN=IGETC<> 

IF(ICHAN.LT.O) STOP 'NO CHANNEL AVAILABLE' 

CREATE OUTPUT FILE 
IBLK=0 

IERROR=IENTER( ICHAN, FILE, 0) 

IF (IERR0R.EQ.-2) GOTO 1040 

IF ( IERROR.LT .0) STOP 'ENTER FAILURE' 

CONTINUE 

IEND=IENB/2 

NWQRDS=IWRITW< IEND,IARRAY»IBLK» ICHAN) 

IF (NWORDS.LT .0) STOP 'ERROR WRITING TO DISKETTE' 
IBLK=IBLK+1 

IF ( IBLK*NE*LASTBK> GOTO 480 

CALL ICLOSE< ICHAN, I ERROR) 

IFdERROR.LT *0) STOP 'ERROR CLOSING CHANNEL' 

CALL IFREECt ICHAN) 

CONTINUE 

NORMAL EXIT HERE 

LERROR='FALSE' 

RETURN 

ERROR MESSAGES AND ERROR RETURN 
CONTINUE 

WRITE (WT ,1002) NAMFIL 

FORMAT (//, ' ERROR OPENING FILE '*14A1> 

GOTO 1100 

CONTINUE 

WRITE (WT ,1022) NAMFIL 

FORMAT (//, ' ERROR WRITING DATA TO FILE ' , 14A1 ) 
GOTO 1100 

CONTINUE 

WRITE ( WT ,1032 ) NAMFIL 

FORMAT (//, ' ERROR CLOSING FILE ',14A1> 

GOTO 1100 

CONTINUE 

CALL ICLOSE ( ICHAN) 
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C 

0093 1100 
C 

0094 

0095 

0096 
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CALL IFREEC (ICHAN) 

WRITE ( WT r 1042 > 

FORMAT ( ' '///>' ERROR! DK1DISKETTE FULL!') 

ERROR RETURN 

CONTINUE 

LERROR='TRUE' 

RETURN 

END 
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Local 1 

Variables* .PSECT 

$DATA* 

Size 

= 000112 ( 

37. words) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

CR 

L*1 

000020 

FILE 

R*8 

000052 

FILE1 

R*8 

000010 

I 

1*2 

000064 

IADD 

1*2 

000072 

IBLK 

1*2 

000100 

IBLQCK 

1*2 

000044 

ICHAN 

1*2 

000076 

IEND 

1*2 

000074 

IERROR 

1*2 

000062 

ILAST 

1*2 

000070 

INDEX 

1*2 

000066 

IREM 

1*2 

000040 

ISIZE 

1*2 

000042 

ITOTBK 

1*2 

000034 

LASTBK 

1*2 

000036 

LERROR 

l*i e 

000006 

NWORDS 

1*2 

000102 

RT 

1*2 

000046 

WT 

1*2 

000050 




COMMON 

Block 

/INOUT /* ! 

size = 012620 

( 2760. words) 



Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

ARRAY 

L*1 

000000 Eov 

BPDATA 

L*1 

011610 Eqv 

IARRAY 

1*2 

000000 

IF’DATA 

1*2 

011610 Ectv 

- 






Local i 

3nd COMMON Arrays 

♦ 

* 






Name 

Type 

* Section 

Offset 


--Size 

Dimensions 


ARRAY 

L*1 

INOUT 

000000 

011610 ( 2500.) 

(5000) 



BPDATA 

L*1 

INOUT 

011610 

001010 < 260.) 

(520) 



HEADER 

1*2 

(? $DATA 

000002 

000006 ( 3.) 

(3) 



IARRAY 

1*2 

INOUT 

000000 

011610 ( 2500.) 

(2500) 



IDATA 

1*2 

<? $DATA 

000004 

001010 ( 260.) 

(260) 



IPDATA 

1*2 

INOUT 

011610 

001010 ( 260.) 

(260) 



NAMFIL 

L*1 

<? $DATA 

000000 

000017 < 8.) 

(15) 




Subroutines* Functions* Statement and Processor-Defined Functions* 


Name 

Type 

Name 

Type 

Name 

Type 

Name 

Type 

Name 

Type 

ICLOSE 

1*2 

IENTER 

1*2 

IFREEC 

1*2 

IGETC 

1*2 

IRAD50 

1*2 

IWRITW 

1*2 

MOD 

1*2 
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Ctttt*t*t****t*ttt**tttt****tt****t***t****tt*t***t****t***t**tt******t***t*** 

C 

C MODULE NAME: 

0001 SUBROUTINE DISKRD(NAMFIL? HEADER? I DAT A? IBLQCK?LERROR) 

C 

C PURPOSE? TO READ SUCCESSIVE BLOCKS OF PROGRAM FROM DISKETTE 
C 

c input: reads HEADER and SUCCESSIVE blocks of data 

C FROM DISKETTE 

C 

c processing: KEEPS TRACK OF number of blocks of data 
c 

C output: PASSES PROGRAM BACK TO CALLING ROUTINE IN ARRAY 

C IDATA 

C 

C CALLED BY} LOAD 

C 

C CALLS to: NONE 

C 

C SPECIAL INTERFACE REQUIREMENTS? NONE 

C 

C REVISION HISTORY (REVISE THIS NARRATIVE IF NECESSARY) 


C DATE PROGRAMMER =====CONTACT/ACTION/REMARKS===== 

C 6-24-85 FRED R. SIAS? JR, (803)656-3375/ NARRATION/PROGRAM 

C 7-05-85 FRS FINISHED DEBUGGING 

C 7-23-85 J. KEITH MCELVEEN (803)656-3375/REVISED PROGRAM 

C . 9-6-85 FRS FIXED ARRAY INDEXES/ LOST DATA 

C 
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0002 L0GICAL#1 LERROR 

0003 BYTE NAMFIL( 15 ) » ARRAY (5000) »BPDATA(520) > I BUFF (512) 

0004 INTEGER*2 IARRAY(2500) » IPBATA(260) 

0005 INTEGER*2 HEADER(3) » I BATA (257) j LASTBK> IREM> ISIZE? IBLOCK fRT »HT 

0006 REALMS FILE 
C 

0007 COMMON /INOUT/ ARRAY.BPBATA 
C 

0008 EQUIVALENCE ( ARRAY* I ARRAY ) 

0009 EQUIVALENCE (BPBATAr IPDATA) 

C 

0010 WT=7 

0011 RT -5 
C 

C GO DOWN TO 350 IF NOT CALL FOR HEADER 

C 

0012 IF (HEADER! 3) .NE.O) GOTO 350 
C 

0014 CALL IRAD50( 12jNAMFILjFILE) 

0015 IFLAG=HEADER(3) 

C 

C OPEN FILE AND READ 

C 

0016 ICHAN=IGETC( ) 

0017 IF (ICHAN.LT. 0) STOP 'NO CHANNEL AVAILABLE' 

0019 IERROR=IFETCH(FILE) 

0020 IF (IERROR.NE.O) STOP 'BAD FETCH' 

0022 IERROR=LOOKUP ( I CHAN > FILE) 

0023 IF (IERR0R.EQ.-2) GOTO 1040 

0025 IF (IERROR.LT. 0) STOP 'BAD LOOKUP' 

C 

0027 IBL0CK=0 

0028 INDEX=1 
C 

0029 130 CONTINUE 

C 

q READ DATA 

0030 IERR0R=IREADU(256f IBUFF > I BLOCK » ICHAN ) 

0031 IF (IERROR.LT. -1) STOP 'BAD READ' 

0033 IF (IERROR.EQ.-l) GOTO 140 

0035 DO 135> 1 = 1 > 512 

0036 ARRAY ( INDEX) =IBUFF (I) 

0037 INDEX=INDEX+1 

0038 135 CONTINUE 

0039 IBL0CK=IBL0CK+1 

0040 GOTO 130 

0041 140 CONTINUE 

c 

0042 CALL ICLOSE ( ICHAN) 

0043 CALL IFREEC( ICHAN) 

C 

C DELETE CR'S IN ARRAY 

C 

0044 J=1 
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0045 


DO 190, 1=1,5000 



0046 


IF (ARRAY ( I ) .EQ . *015) 

GOTO 

190 

0048 


ARRAY ( J)=ARRAY ( I ) 



0049 


IF (ARRAY(I) .EQ»0) 

GOTO 

200 

0051 


J=J+1 



0052 

190 

CONTINUE 



0053 

200 

CONTINUE 
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0054 

0055 

0056 

0057 
0059 


0060 

0061 

0062 


0063 

0065 


0067 

0068 


0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 


0085 

0086 


C 

ISIZE= J-l 
IT0TBK=ISIZE/252 
IREM=ISIZE-IT0TBK*252 
IF ( IREM.NE.O) IT0TBK=IT0TBK+1 
LASTBK=IT0TBK-1 
C 

C— DIAGNOSTICS 

C 

C WRITE (WT >250) ISIZE » IREM, ITOTBK 

C250 FORMAT ( ' ISIZE= ',I6t' IREM= '»I6f' ITOTBK= ' f 16 ) 

C 

C WRITE (WT >260) (ARRAY (I)>I+1>ISIZE) 

C260 FORMAT ( ' '>6(' '>14)) 

C 

HEADER( 1 )=ITOTBK 
HEADER(2)=IREM 
HEADER(3)=ISIZE 
C 

C RETURN WITH JUST HEADER INFORMATION 
C 

IF (IFLAG.EQ.O) INDEX=1 
IF (IFLAG.EQ.O) RETURN 
C 

C HERE IF MOVING BLOCKS OF DATA 
C 

350 CONTINUE 
C 

IF (IBLOCK.EQ.LASTBK) GOTO 400 
C 

C THIS FOOLISHNESS NEEDED SINCE CAN'T EQUIVALENCE PARAMETER 
C 

DO 390 > I=5>256 

BPDATA( 1*2-1 )=ARRAY< INDEX) 

I DATA ( I ) = IPDAT A ( I ) 

INDEX=INDEX+1 

K=I 

390 CONTINUE 
GOTO 500 
C 

400 CONTINUE 

DO 490 1 1=5 f IREM+4 
BPDATA( 1*2-1 )=ARRAY( INDEX) 

IDATA( I )=IPDATA( I ) 

INDEX=INDEX+1 

K=I 

490 CONTINUE 
C 

500 CONTINUE 
C 

C NORMAL EXIT HERE 
C 

IDATA(4)=IBL0CK 
IDATA( 1 )=K-2 
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C 

0087 LERROR='FALSE' 

0088 RETURN 
C 
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C ERROR MESSAGES AND ERROR RETURN 
C 


0089 

1000 

CONTINUE 



C 

WRITE (WT 1 1002) NAMFIL 


0090 

1002 

FORMAT < ' '»/»' ERROR OPENING FILE '»14Al»/»' 

DOES IT EXIST?') 

0091 

r 

GOTO 1100 


0092 

1010 

CONTINUE 


0093 


WRITE (WT 1 1012) NAMFIL 


0094 

1012 

FORMAT ( ' ',/>' ERROR READING HEADER FROM FILE ',14A1) 

0095 

p 

GOTO 1100 


0096 

1020 

CONTINUE 


0097 


WRITE (WT » 1022) NAMFIL 


0098 

1022 

FORMAT ( ' '»/»' ERROR READING DATA FROM FILE 

' » 1 4 A 1 ) 

0099 


GOTO 1100 


0100 

L 

1030 

CONTINUE 


0101 


WRITE (WT 1 1032) NAMFIL 


0102 

1032 

FORMAT ( ' ',/t' ERROR CLOSING FILE S14A1) 


0103 

p 

GOTO 1100 


0104 

t 

1040 

CONTINUE 


0105 


CALL ICLOSE(ICHAN) 


0106 


CALL IFREEC(ICHAN) 


0107 


WRITE (WT 1 1042) 


0108 

1042 

P 

FORMAT ( ' FILE NOT FOUND. TRY AGAIN.') 



L 

c 

ERROR RETURN 


0109 

1100 

r 

CONTINUE 


0110 

L 

LERROR='TRUE' 


0111 


RETURN 


0112 


END 
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Local Variables* .PSECT *DATA* Size = 001076 ( 287, words) 


Name 

Type 

Offset 


Name 

Type 

Offset 

Name 

Type 

Offset 

FILE 

R*8 

001040 


I 

1*2 

001060 

IBLOCK 

1*2 0 

000006 

ICHAN 

1*2 

001052 


IERROR 

1*2 

001054 

IFLA6 

1*2 

001050 

INDEX 

1*2 

001056 


IREM 

1*2 

001030 

ISIZE 

1*2 

001032 

ITOTBK 

1*2 

001064 


J 

1*2 

001062 

K 

1*2 

001066 

LASTBK 

1*2 

001026 


LERRDR 

l*i 0 

000010 

RT 

1*2 

001034 

WT 

1*2 

001036 








COMMON 

Block 

/INOUT 

/* 

Size = 

012620 

( 2760. 

words) 



Name 

Tape 

Offset 


Name 

Type 

Offset 

Name 

Type 

Offset 

ARRAY 

L*1 

000000 

Eav 

BPDATA 

L*1 

011610 

Eav IARRAY 

1*2 

000000 Eav 

IPDATA 

1*2 

011610 

Eav 








Local and COMMON Arrays* 


Name 

Type 


Section 

Offset 

Siz 

e 

Dimens 

ARRAY 

L*1 


INOUT 

000000 

011610 

( 

2500.) 

(5000) 

BPDATA 

L*1 


INOUT 

011610 

001010 

( 

260.) 

(520) 

HEADER 

1*2 

0 

♦DATA 

000002 

000006 

< 

3.) 

(3) 

IARRAY 

1*2 


INOUT 

000000 

011610 

( 

2500.) 

(2500) 

IBUFF 

L*1 


♦DATA 

000012 

001000 

( 

256.) 

(512) 

IDATA 

1*2 

8 

♦DATA 

000004 

001002 

( 

257.) 

(257) 

IPDATA 

1*2 


INOUT 

011610 

001010 

( 

260.) 

(260) 

NAMFIL 

L*1 

0 

♦DATA 

000000 

000017 

< 

8.) 

(15) 


Subroutines* Functions* Statement and Processor-Defined Functions*, 


Name 

Type 

Name 

Type 

Name 

Type 

Name 

Type 

Name 

Type 

ICLOSE 

1*2 

IFETCH 

1*2 

IFREEC 

1*2 

IGETC 

1*2 

IRAD50 

1*2 

IREADW 

1*2 

LOOKUP 

1*2 
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0001 


C 

C MODULE NAME: 

SUBROUTINE RUN 
C 

c purpose: 

c 

C THIS ROUTINE IS USED TO START ANY PROGRAM STORED IN THE ROBOT. 

C THE PROGRAM IS SELECTED BY NUMBER WHICH IS REQUESTED BY 

C THIS PROGRAM AND PASSED TO THE ROBOT AS PART OF THE MESSAGE. 

C 

C THE LOAD PROGRAM IN THE MINC MAY BE USED TO TRANSFER A PROGRAM 

C FROM THE MINC DISC TO THE ROBOT MEMORY PRIOR TO STARTING THE 

C PROGRAM USING THIS RUN ROUTINE. 

C 

C INPUT: ACCEPTS PROGRAM NUMBER FROM MINC KEYBOARD. 

C 

processing: 

SETS UP MESSAGE AND CONTROLS COMMUNICATION. 

AFTER TRANSMIT AND ACKNOWLEDGE WILL SIT IN LOOP AND 
RECEIVE MESSAGES INDEFINITELY. KEYPRESS TO EXIT. 

output: 


SUBROUTINE DISPLAYS APPROPRIATE PROMPT MESSAGE PRIOR 
TO ACCEPTING A PROGRAM NUMBER FROM KEYBOARD. THE ACTUAL 
MESSAGE TRANSMITTED IS THE ‘SET PROGRAM MODE' MESSAGE. 

MUST BE TRANSMITTED WHILE ROBOT IS IN ’NO-ACTIVITY STATE*. 
THE PROGRAM TO BE RUN MUST ALREADY BE STORED IN THE ROBOT 
CONTROLLER MEMORY. 


MESSAGE TYPE CODE = 130 


THE KEYSWITCH ON THE ROBOT MUST BE ENABLED. 


CALLED BY: CYR02 


CALLS to: SEND»RECEVE 


SPECIAL INTERFACE REQUIREMENTS 5 


MINC DIGITAL I/O MODULES 


C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


REVISION HISTORY 
DATE 

7- 10-84 
10-26-84 
6-4-85 

8- 10-85 


(REVISE THIS NARRATIVE IF NECESSARY) 
PROGRAMMER =====CONTACT/ACTlON/REMARKS===== 

FRED R. SIAS> JR. <803)-656-3375/SYSTEM DESIGN/PROGRAM 

/SIGNIFICANT PROGRAM REVISION 
JR. /REVISED NARRATION 
/REVISED RECEIVE LOOP 


FRED R. SI AS* JR. 

FRED R. SIAS» 
J. KEITH MCELVEEN 
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C 


0002 


0003 

C 

0004 


0005 

C 

0006 

10 

0007 


0008 

100 

0009 


0010 

110 


C 

0011 


0013 

C 


C 

0015 

C 

0016 

c 

0017 

c 

0018 

c 

0019 

c 

0020 

c 

0021 

c 

0022 


0024 


0026 

c 


c 

0028 

c 

0029 


0031 


0033 

c 


c 


c 

0035 


0036 

1070 


c 

0037 

c 

0038 



INTEGER*2 WTfRTfIDATA(257)f INDATA 
INTEGERS ILENf IERROR 

UT = 7 
RT = 5 

CONTINUE 
WRITE (WT.100) 

FORMAT (//. ' Input NUMBER of robot prodrsm to RUN.'. 
1 t/t' To EXIT, press RETURN. > ',$) 

READ (RT , 110. ERR = 10) INPATA 
FORMAT ( 14) 

IF ( INDATA .EQ .0) RETURN 

IF (INBATA.LT. 1. OR. INDATA. GT.9) GOTO 400 

LENGTH OF MESSAGE TO TRANSMIT 
IDATA(l) = 3 

SET SEQUENCE NUMBER TO 0 

IDATA(2) = 0 

SET TYPE CODE TO 130 

IDATA(3) = 130 

SET PROGRAM STATUS TO ’RUN' 

IDATA(4) = 1 
TRANSMIT PROGRAM NUMBER 
IDATA(5) = INDATA 

ILEN = 5 

CALL SEND (I ERROR > ILEN. I DAT A) 

IF (IERROR. EQ.l) GOTO 1000 
IF (IERROR. EQ. 2) GOTO 2000 
IF (IERROR. GT. 2) GOTO 3000 


GET MESSAGE 

CALL RECEVE (IERROR. ILEN. ICSUM. IDA TA> 

IF (IERROR. EQ.l) GOTO 1000 
IF (IERROR. EQ. 2) GOTO 2000 
IF (IERROR. GT. 2) GOTO 3000 


KEEP READING MESSAGES 


WRITE (WT f 1070) INDATA 

FORMAT (//f ' PROGRAM N0.'.I2.' HAS BEEN STARTED' . 

1 ' IN ROBOT. 'r/f 

2 ' System will ignore 3na messsges during prosrsm run,'j/> 

3 ' AFTER RUNf PRESS ANY KEY TO RETURN TO MENU.> '»$) 

DO 7000 1=1 .2500 

CALL RECEVE ( IERROR , ILEN. ICSUM . IDATA) 
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C 

003? 

0041 

0043 

C 

0045 7000 
C 

0046 

C 

C 

C 

C 

C 

C 

0047 6000 
C 

0048 

C 

C 

C 

004? 400 

0050 402 

0051 

C 

0052 1000 

0053 

0054 1010 

0055 

C 

0056 2000 

0057 

0058 2010 
005? 

C 

0060 3000 

0061 

0062 3010 
C 

0063 ??? 

0064 

0065 ???? 

0066 

0067 ???8 
C 

0068 
006? 
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IF (IERROR, EQ.l) GOTO 6000 
IF ( IERROR, EQ. 2) GOTO 2000 
IF < IERROR . GT ,2) GOTO 3000 

CONTINUE 

TYF’E *»' RECEIVED 2500 MESSAGES* CONTINUING' 


WILL EXIT ABOVE LOOP IF TIMEOUT OCCURS OR IF RECEIVES 
2500 MESSAGES. 

CONTINUE 

RETURN 


WRITE(WT *402) 

FORMAT (//* ' ONLY PROGRAM NUMBERS 1-? ACCEPTABLE.') 

GOTO 10 

CONTINUE 
WRITE! WT* 101 0) 

FORMAT!//*' FIVE SECOND TIMEOUT OCCURRED DURING RECEIVE,') 
GOTO ??? 

CONTINUE 
WRITE!WT *2010) 

FORMAT!//*' CHECKSUM ERROR CALCULATION PRODUCED ERROR'* 

1 ' DURING RECEIVE,') 

GOTO ??? 

CONTINUE 

WRITE!WT *3010) IERROR 

FORMAT!//*' ILLEGAL ERROR CODE' *14*' RETURNED FROM'* 

1 ' RECEIVE SUBROUTINE.') 


CONTINUE 

WRITE!WT*????) 

FORMAT!//*' PRESS 'RETURN 1 TO GOTO MAIN MENU.> '*$) 
READ ! RT * ???8) INPUT 
FORMAT ( A4 ) 

RETURN 

END 


123 


FORTRAN IV 
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Local 

Variables* .PSECT 

*DATA* 

Size 

= 001022 ( 

265. words) 


Name 

Tape 

Offset 

Name 

Tape 

Offset 

Name Tape 

Offset 

I 

1*2 

001016 

ICSUM 

1*2 

001014 

IERROR 1*2 

001012 

ILEN 

1*2 

001010 

INDATA 

1*2 

001006 

INPUT 1*2 

001020 

RT 

1*2 

001004 

WT 

1*2 

001002 



Local 

and COMMON Arraas 

♦ . 
♦ 





Name 

Tape 

Section 

Offset 

— 

--Size 

Dimensions 


IDATA 

1*2 

$DATA 

000000 

001002 ( 257.) 

(257) 



Subroutines* Functions* Statement and Processor-Defined Functions! 

Name Tape Name Tape Name Tape Name Tape Name Tape 

RECEVE R*4 SEND R*4 
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0001 


C 

C MODULE NAME! 

SUBROUTINE DIRECT 
C 

c purpose: 

c 

C ROUTINE ACCEPTS DIR COMMAND FROM TERMINAL? 

C THEN A REQUEST IS TRANSMITTED TO THE ROBOT AND THE COMPUTER 

C RECEIVES AND DISPLAYS THE PROGRAM NUMBER AND THE 

C FIRST TWO LINES OF EACH PROGRAM ON THE MI NC CRT. 

C 

c input: none 

C 

c processing: 

c 

c handshaking: 

C Computer transmits Type Code 193 - REQUEST TO SAVE 

C PROGRAM TO COMPUTER. 

C The computer waits for Type Code 66 - SAVE PROGRAM 

C TO COMPUTER ACKNOWLEDGE. 

C 

C 6-4-85 ACCORDING TO RUSS VIRES ROBOT NO LONGER WAITS 

FOR FIRST TYPE CODE 193 - NOT IN CURRENT DOCUMENTATION - 
RATHER TWO MESSAGES FOLLOW IN SEQUENCE SEPARATED BY A 
BRIEF PAUSE. SECOND MESSAGE IS FIRST BLOCK OF DATA. 


Then computer accepts a seouence of blocks 

using Type Code 193 to indicate when 
it is ready for each block. 

Each block of data transmitted to the robot has a header 
containing the Type Code 67 followed by 
a seauential block number and the actual 
N/C program data. 

OUTPUT*. DISPLAYS APPROPRIATE PROMPTS ON MINC CRT AND THEN 
DISPLAYS THE PROGRAM NUMBER AND THE FIRST TWO LINES 
OF EACH PROGRAM ON THE MINC CRT. 


CALLED BY? CYR02 


calls to: REQTS? RECEVE 

SPECIAL INTERFACE REQUIREMENTS J USES MINC DIGITAL I/O MODULES 


REVISION HISTORY 
DATE 


(REVISE THIS NARRATIVE IF NECESSARY) 
PROGRAMMER =====CONTACT/ACTION/REMARKS===== 

SIAS? JR. ( 803)-656-3375/SYSTEM DESIGN/PROGRAM 

SIAS > JR. /REVISED NARRATION 

SI AS > JR. /REVISED LOGIC 


C 
C 

C 5-27-85 FRED R. 
C 6-04-85 FRED R. 
C 6-10-85 FRED R. 
C 
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0002 

C 

INTEGER*2 NUMBER, RTr WT»FILN0,0UTDV 

0003 


BYTE INPUT 

0004 

p 

L0GICALK1 LERROR 


L 

c 

p 

INCLUDE 'COMMON. FOR' —NOT LEGAL IN THIS FORTRAN 

0005 


INTEGER*2 IDATA(258) 

0006 


BYTE PROG( 1024 ) , BUFFER ( 80 ) 

0007 

p 

COMMON IDATA»PROG»BUFFER 

0008 

w 

WT=7 

000? 


RT=5 

0010 

p 

0UTDV=7 

0011 

10 

p 

CONTINUE 

0012 

L 

p 

DO 400 » NUMBER=1 1 9 

0013 

L 

120 

p 

CONTINUE 


L 

c 

p 

NOW TRANSMIT A ‘REQUEST TO SAVE* TO ROBOT 

0014 

P 

CALL REQTS(NUMBER» IERROR) 

0015 

L 

IF (IERROR. EQ.l) GOTO 2100 

0017 


IF (IERROR. EQ. 2) GOTO 2200 

0019 

p 

IF (IERROR. GE. 3) GOTO 2300 


c 

p 

NOW WAIT FOR SAVE ACKNOWLEDGE - TYPE CODE 66 

0021 

c 

200 

P 

CONTINUE 

0022 

L 

p 

CALL RECEVE( IERROR » ILEN» ICSUM» IDATA) 

0023 

Lf 

IF (IERROR. EQ.l) GOTO 3100 

0025 


IF (IERROR. EQ. 2) GOTO 3200 

0027 

p 

IF (IERROR. GE. 3) GOTO 3300 

0029 

L 

ITYPE=IDATA( 3) 

0030 


IACK=IDATA ( 4 > 

0031 


IPNIJM=IDATA(5) 

0032 

P 

ISIZE=IDATA(6)+256*IBATA(7> 


w 

c 

p 

WRONG MESSAGE TYPE RECEIVED 

0033 

L 

p 

IF (ITYPE.NE.66) GOTO 1100 

0035 

L 

p 

IF (IPNUM.NE. NUMBER) GOTO 1200 


c 

p 

NOT READY TO RECEIVE CODE = 0 

0037 

L 

IF (IACK.EQ.O) GOTO 1300 

003? 


IF (IACK.GE.2) GOTO 1000 
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0041 

0042 

0043 


0044 

0045 

0046 


0048 


0049 

0051 

0052 
0054 
0056 

0058 


0059 

0060 
0062 
0064 

0066 

0067 

0069 

0070 


0072 

0074 

0075 

0076 

0078 

0079 


C 

WRITE(WT »203) NUMBER 
203 FORMAT ( ' Program No. '»I2>' ' ?$) 

C 

IBLKCT=0 

C 

C RECEIVES BLOCK NUMBER AND 252 BYTES OF BATA IN EACH BLOCK 
C 

I TOTBK= I SIZE/252 
IREM=ISIZE-IT0TBK*252 
IF ( IREM.NE.O) IT0TBK=IT0TBK+1 
C 

C — - 

c 

C LOOP TO RECEIVE AND PUT IN ARRAY FOLLOWS? 

C 

BO 300 1 = 1 > ITOTBK 
C 

C SKIP REQUEST TO SEND FOR FIRST BLOCK OF DATA 
C 

IF (I.EQ.l) GOTO 240 
C 

CALL REQTS ( NUMBER » I ERROR) 

C 

IF (IERROR.EQ. 1 ) GOTO 2100 
IF (IERROR.EQ. 2) GOTO 2200 
IF ( IERR0R.GE.3) GOTO 2300 
C 

240 CONTINUE 
C 

C STARTS RECEIVING PROGRAM HERE 
C 

CALL RECEVE( IERROR> ILEN> ICSUM» IDATA) 

C 

IF (IERROR.EQ. 1) GOTO 3100 
IF (IERROR.EQ, 2) GOTO 3200 
IF (IERR0R.GE.3) GOTO 3300 
C 

ITYPE=IBATA<3> 

IF (ITYPE.NE.67) GOTO 1100 
IBLOCK=IDATA ( 4 ) 

IF ( IBLOCK.NE. IBLKCT) GOTO 4100 
C 

C DISPLAY ARRAY ON CRT 
C 

IF (IBLKCT. NE.O) GOTO 260 
C 

ICRS=1 

C 

DO 250 K=5» ILEN+2 
C 

IF ( IDATA( K ) , EQ . * 012 ) WRITE (0UTDV»205) 

205 FORMAT ('+'»'/') 

IF( IDATA(K) .EQ. ’012) ICRS=ICRS+1 
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0081 

0083 

0085 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 


C 

IF ( IDATA(K) . EQ. 0) GOTO 260 
IF ( ICRS »EQ » 2 ) GOTO 260 

C 

IF( IDATA(K) . NE. *012) WRITE <0UTDV»220> IDATA(K) 

220 FORMAT ('+'»A1»$) 

C 

250 CONTINUE 
C 

260 CONTINUE 
C 

IBLKCT=IBLKCT+1 

C 

C END OF FILE TRANSFER LOOP 
C 

300 CONTINUE 
C 

400 CONTINUE 
C 

WRITE ( WT > 500 ) 

500 FORMAT (/» ' PRESS ’RETURN 1 TO GOTO MAIN MENU,> ',$> 

READ (RT >904) INPUT 
C 

RETURN 

C 
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C 

C 


0097 

900 

0098 

0099 

992 

0100 


0101 

904 

0102 

C 

0103 

1000 

0104 

1002 

0105 

C 

0106 

1100 

0107 

1102 

0108 

C 

0109 

1200 

0110 

1202 

0111 

C 

0112 

1300 

0113 

1302 

0114 


0115 

C 

0116 

2100 

0117 

2102 

0118 

C 

0119 

2200 

0120 

2202 

0121 

C 

0122 

2300 

0123 

2302 

0124 

3100 

0125 

3102 

0126 

C 

0127 

3200 

0128 

3202 

0129 

C 

0130 

3300 

0131 

3302 

0132 



ALL OF THE VARIOUS ERROR MESSAGES FOLLOW: 

CONTINUE 
WRITE (WT , 992 ) 

FORMAT ( // » ' PRESS RETURN TO GOTO MAIN MENU> ',*) 

READ (RT » 904 ) INPUT 
FORMAT ( 14 ) 

RETURN 

WRITE (WT » 1002) 

FORMAT (//> ' ILLEGAL ACKNOWLEDGE CODE RECEIVED,') 

GOTO 900 

WRITE (WT , 1102) 

FORMAT (//,' WRONG MESSAGE TYPE RECEIVED!') 

GOTO 900 

WRITE (WT , 1202) 

FORMAT(//, ' WRONG PROGRAM NUMBER RETURNED BY ROBOT!') 

GOTO 900 

WRITE (WT , 1302) 

FORMAT(//» ' ROBOT NOT READY TO RECEIVE.', 

1 ' TYPE ‘RETURN’ TO TRY AGAIN> ',$) 

READ ( RT , 904 ) INPUT 
GOTO 120 

WRITE (WT ,2102) 

FORMAT (//, ' TIME OUT ERROR WHILE WAITING FOR',/, 

1 ' ACKNOWLEDGE FROM ROBOT.') 

GOTO 900 

WRITE (WT ,2202) 

FORMAT(//, ' LRC ERROR MESSAGE RETURNED AFTER TRANSMISSION.') 
GOTO 900 

WRITE (WT ,2302) IERROR 

FORMAT (//»•' ILLEGAL ACKNOWLEDGE CODE', 14,' RECEIVED', 

1 ' AFTER TRANSMISSION TO ROBOT.') 

WRITE (WT ,3102) 

FORMAT (//» ' FIVE SECOND TIMEOUT OCCURED DURING RECEIVE.') 
GOTO 900 

WRITE ( WT , 3202 ) 

FORMAT (//,' CHECKSUM ERROR CALCULATION PRODUCED ERROR', 

1 ' DURING RECEIVE.') 

GOTO 900 

WRITE (WT , 3302) IERROR 

FORMAT (//, ' ILLEGAL ERROR CODE', 14,' RETURNED FROM', 

1 ' RECEIVE SUBROUTINE.') 

GOTO 900 


0133 


C 

4100 


WRITE ( WT, 4102) IBLOCK, IBLKCT 
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0134 4102 FORMAT*//,' BLOCK COUNT TRANSMITTED (',14,')', 

1 ' DOES NOT MATCH EXPECTED BLOCK (',14,').') 

0135 GOTO 900 
C 

0136 END 
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Storage Map for Program Unit DIRECT 


Local 

Variables? .PSECT 

f DATA? 

Size 

= 000056 ( 

23. words) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Tape 

Offset 

FILNO 

1*2 

000012 

I 

1*2 

000044 

IACK 

1*2 

000030 

IBLKCT 

1*2 

000036 

IBLOCK 

1*2 

000046 

ICRS 

1*2 

000050 

ICSUM 

1*2 

000024 

IERROR 

1*2 

000020 

ILEN 

1*2 

000022 

INPUT 

L*1 

000016 

IPNUM 

1*2 

000032 

IREM 

1*2 

000042 

ISIZE 

1*2 

000034 

ITOTBK 

1*2 

000040 

ITYPE 

1*2 

000026 

K 

1*2 

000052 

LERROR 

L*1 

000017 

NUMBER 

1*2 

000004 

OUTDV 

1*2 

000014 

RT 

1*2 

000006 

WT 

1*2 

000010 

COMMON 

Block 

/ /? ! 

Size = 003124 

( 810. words) 



Name 

Tape 

Offset 

Name 

Tape 

Offset 

Name 

Tape 

Offset 

IDATA 

1*2 

000000 

PROG 

L*1 

001004 

BUFFER 

L*1 

003004 

Local 

and COMMON Arraas 

* 

♦ 



- 



Name 

Type Section 

Offset 

— 

- Size 

Dimensions 


BUFFER 

L*1 

.$$$$. 

003004 

0001 

20 ( 40.) 

(80) 



IDATA 

1*2 

.m$, 

000000 

001004 ( 258.) 

(258) 



PROG 

L*1 

.$m. 

001004 

002000 ( 512.) 

(1024) 




Subroutines? Functions? Statement end Processor-Defined Functions? 


Name Tape Name Tape Name Tape Name Tape Name Tape 

RECEVE R*4 REQTS R*4 
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0001 


Q ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ j|f ^ ||| ^ ^ j|^ ^ ^ j|^ ^ ^ ^ j|f j|f j|^ ^ ^ ^ ^ j|f ^ jj^ j|p j|| ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 

C 

C MODULE NAME: 

SUBROUTINE DISPLA 


C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


purpose: 


ROUTINE ACCEPTS PROGRAM NUMBER TO BE DISPLAYED FROM TERMINAL * 
THEN A REQUEST IS TRANSMITTED TO THE ROBOT AND THE COMPUTER 
RECEIVES AND DISPLAYS THE PROGRAM RETURNED TO IT, 


input: 


processing: 


ACCEPTS PROGRAM NUMBER FROM MINC KEYBOARD. 


handshaking: 

Computer transmits Type Code 193 - REQUEST TO SAVE 
PROGRAM TO COMPUTER, 

The computer waits for Type Code 66 - SAVE PROGRAM 
TO COMPUTER ACKNOWLEDGE. 


C 6-4-85 ACCORDING TO RUSS VIRES ROBOT NO LONGER WAITS 

C FOR FIRST TYPE CODE 193 - NOT IN CURRENT DOCUMENTATION 

C RATHER TWO MESSAGES FOLLOW IN SEQUENCE SEPARATED BY A 

C BRIEF PAUSE. SECOND MESSAGE IS FIRST BLOCK OF DATA. 


Then computer accepts a senuence of blocks 

usind Type Code 193 to indicate when 
it is ready for each block. 

Each block of data transmitted to the robot has a header 
containing the Type Code 67 followed by 
a seouential block number and the actual 
N/C prodram data. 

OUTPUT: DISPLAYS APPROPRIATE PROMPTS ON MINC CRT AND THEN 

DISPLAYS SELECTED ROBOT PROGRAM ON MINC CRT OR PRINTER, 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ j|^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ |j|i ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 


CALLED BY: CYR02 


CALLS TO: REQTS» RECEVE 


SPECIAL INTERFACE REQUIREMENTS? 


USES MINC DIGITAL I/O MODULES 


REVISION HISTORY 
DATE 


5- 27-85 

6- 04-85 
6-10-85 


FRED R. 
FRED R. 
FRED R, 


(REVISE THIS NARRATIVE IF NECESSARY) 
PROGRAMMER =====CONTACT/ACTION/REMARKS===== 

SI AS f JR. <803)-656-3375/SYSTEM DESIGN/PROGRAM 

SIAS» JR, /REVISED NARRATION 

SIAS j JR. /REVISED LOGIC 
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0002 

0003 

0004 


0005 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 
0018 

0020 

0021 

0022 

0023 

0024 

0026 


0027 

0028 
0030 
0032 


0034 

0035 

0036 
0038 
0040 

0042 

0043 


C 

INTEGER*2 NUMBER >RT *MT *FILNO*OUTDV 
BYTE INPUT 
L0GICAL*1 LERROR 
C 

C INCLUDE 'COMMON, FOR' ---NOT LEGAL IN THIS FORTRAN 

C 

INTEGER*2 IBATA(258> 

BYTE PROG( 1024) * BUFFER (80) 

COMMON I DATA* PROG* BUFFER 
C 

WT=7 

RT=5 

0UTDV=7 

C 

10 CONTINUE 

C 

WRITE ( WT* 100) 

100 FORMAT(///*' Input NUMBER of Program to be displayed,'* 

1 /*' To EXIT* press RETURN, > '**) 

READ (RT* 110) NUMBER 
110 FORMAT (12) 

C 

IF (NUMBER, EO.O) RETURN 
IF (NUMBER.LT , 1 , OR, NUMBER, GT .9) GOTO 400 
C 

WRITE (WT* 112) 

112 FORMAT(//*' Do you want output on printer? (Y or N)> '*$) 
READ (RT* 113) INPUT 

113 FORMAT(Al) 

IF (INPUT, EQ.'Y') 0UTDV=6 
C 

120 CONTINUE 
C 

C NOW TRANSMIT A 'REQUEST TO SAVE' TO ROBOT 
C 

CALL REQTS( NUMBER* I ERROR) 

C 

IF (IERROR.EQ.l) GOTO 2100 
IF (IERR0R.EQ.2) GOTO 2200 
IF (IERR0R.GE.3) GOTO 2300 
C 

C NOW WAIT FOR SAVE ACKNOWLEDGE - TYPE CODE 66 
C 

200 CONTINUE 
C 

CALL RECEVE( IERROR* ILEN* ICSUM > IDATA) 

C 

IF (IERROR.EQ.l) GOTO 3100 
IF (IERROR. EQ, 2) GOTO 3200 
IF (IERROR. GE. 3) GOTO 3300 
C 

ITYPE=IDATA(3) 

IACK=IDATA(4 ) 
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0044 

0045 


0046 

0048 


0050 

0052 

0054 

0055 

0056 


0057 

0058 

0059 


0061 


0062 

0064 

0065 
0067 
0069 

0071 


0072 

0073 
0075 
0077 

0079 

0080 
0082 


IPNUM=IDATA(5> 

ISIZE=IDATA(6)+256*IDATA<7) 

C • 

C WRONG MESSAGE TYPE RECEIVED 
C 

IF ( ITYPE.NE.66) GOTO 1100 
C 

IF (IPNUM.NE. NUMBER) GOTO 1200 
C 

C NOT READY TO RECEIVE CODE = 0 
C 

IF < IACK » EQ. 0) GOTO 1300 
IF (IACK.GE.2) GOTO 1000 
C 

WRITE (0UTDV»202) NUMBER 
202 FORMAT ( ' Robot Pro3rsm No. '>I4>//) 

C 

IBLKCT=0 

C 

C RECEIVES BLOCK NUMBER AND 252 BYTES OF DATA IN EACH BLOCK 
C 

I T0TBK=I SIZE/252 
IREM=ISIZE-IT0TBK*252 
IF (IREM.NE.O) IT0TBK=IT0TBK+1 
C 

C - - 

c 

C LOOP TO RECEIVE AND PUT IN ARRAY FOLLOWS: 

C 

DO 300 1=1 > ITOTBK 
C 

C SKIP REQUEST TO SEND FOR FIRST BLOCK OF DATA 
C 

IF (I.EQ.l) GOTO 240 
C 

CALL REQTS( NUMBER » I ERROR) 

C 

IF ( IERROR.EQ . 1 ) GOTO 2100 
IF (IERROR.EQ. 2) GOTO 2200 
IF ( I ERROR, GE. 3) GOTO 2300 
C 

240 CONTINUE 
C 

C STARTS RECEIVING PROGRAM HERE 
C 

CALL RECEVE( I ERROR » ILENj ICSUM»IDATA) 

C 

IF (IERROR.EQ. 1) GOTO 3100 
IF (IERR0R.EQ.2) GOTO 3200 
IF (IERR0R.GE.3) GOTO 3300 
C 

ITYPE=IDATA(3) 

IF (ITYPE.NE. 67) GOTO 1100 
IBL0CK=IDATA(4) 
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0083 IF ( IBLOCK.NE . IBLKCT) GOTO 4100 

C 

C DISPLAY ARRAY ON CRT OR PRINTER 
C 

0085 DO 250 K=5>ILEN+2 
C 

0086 IF(IDATA(K)*EQ.'012) WRITE (0UTDV,205) 

0088 205 FORMAT ('+'»'/') 

C 

0089 IF ( IDATA(K) . EQ. *012) WRITE <0UTDY>212) 

0091 212 FORMAT ( ' ') 

0092 IF ( IDATA(K) .EQ.O) GOTO 260 
C 

0094 IF ( IDATA(K) . NE f *012) WRITE <0UTDV,220) IDATA(K) 

0096 220 FORMAT ( '+' »A1»$) 

C 

0097 250 CONTINUE 

C 

0098 260 CONTINUE 

C 

0099 IBLKCT=IBLKCT+1 
C 

C END OF FILE TRANSFER LOOP 

C 

0100 300 CONTINUE 

C 

0101 WRITE (0UTDV»310> 

0102 310 FORMAT ( ' ',/) 

0103 IF (0UTDV.EQ.6) CLOSE <UNIT=6) 

C 

0105 GOTO 499 


135 


FORTRAN IV 


V02 * 5-2 


Thu 08-M3a-86 13:24:38 


PAGE 005 


C 

C ALL OF THE VARIOUS ERROR MESSAGES FOLLOW: 

C 

C 


0106 

400 

WRITE ( WT ? 402 ) 

0107 

402 

FORMAT ( // ? ' ONLY PROGRAM NUMBERS 1-? ACCEPTABLE.') 

0108 

p 

GOTO 10 

010? 

L? 

4?? 

CONTINUED ♦ 

0110 


WRITE ( WT ? 500 ) 

0111 

500 

FORMAT (//? ' PRESS ‘RETURN* TO GOTO MAIN MENU.> '?$) 

0112 


READ (RT??04> INPUT 

0113 

r 

RETURN 

0114 

w 

?00 

P 

CONTINUE 

0115 

p 

RETURN 

0116 


READ (RT??04) INPUT 

0117 

?04 

FORMAT ( A1 ) 

0118 

p 

RETURN 

Oil? 

L 

1000 

WRITE (WT ? 1002) 

0120 

1002 

FORMAT (//? ' ILLEGAL ACKNOWLEDGE CODE RECEIVED? ' ) 

0121 

P 

GOTO 900 

0122 

L 

1100 

WRITE (WT? 1102) 

0123 

1102 

FORMAT (//?' WRONG MESSAGE TYPE RECEIVED!') 

0124 

P 

GOTO ?00 

0125 

1/ 

1200 

WRITE (WT ? 1202) 

0126 

1202 

FORMAT (//? ' WRONG PROGRAM NUMBER RETURNED BY ROBOT!') 

0127 


GOTO ?00 

0128 

Q 

1300 

WRITE (WT ? 1302) 

012? 

1302 

FORMAT!//?' ROBOT NOT READY TO RECEIVE.'? 

1 ' TYPE ‘RETURN* TO TRY AGAIN> '?*) 

0130 


READ (RT ??04) INPUT 

0131 

p 

GOTO 120 

0132 

2100 

WRITE (WT ?2102) 

0133 

2102 

FORMAT!//?' TIME OUT ERROR WHILE WAITING FOR'?/? 
1 ' ACKNOWLEDGE FROM ROBOT,') 

0134 

p 

GOTO ?00 

0135 

L 

2200 

WRITE (WT ?2202) 

0136 

2202 

FORMAT (//? ' LRC ERROR MESSAGE RETURNED AFTER TRANSMISSION.') 

0137 

p 

GOTO ?00 

0138 

2300 

WRITE ( WT ? 2302 ) IERROR 

013? 

2302 

FORMAT (//? ' ILLEGAL ACKNOWLEDGE CODE'? 14?' RECEIVED'? 
1 ' AFTER TRANSMISSION TO ROBOT.') 

0140 

3100 

WRITE (WT ?3102) 

0141 

3102 

FORMAT*//?' FIVE SECOND TIMEOUT OCCURED DURING RECEIVE.') 
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0142 

C 

0143 3200 

0144 3202 

0145 

C 

0146 3300 

0147 3302 

0148 

C 

0149 4100 

0150 4102 

0151 

C 

0152 
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GOTO 900 
WRITE (WT >3202) 

FORMAT (//* ' CHECKSUM ERROR CALCULATION PRODUCED ERROR ' * 
1 ' DURING RECEIVE.') 

GOTO 900 

WRITE ( WT > 3302 ) IERROR 

FORMAT ( // > ' ILLEGAL ERROR CODE' *14*' RETURNED FROM ' * 

1 ' RECEIVE SUBROUTINE.') 

GOTO 900 

WRITE (WT *4102) IBLOCK* IBLKCT 

FORMAT*//*' BLOCK COUNT TRANSMITTED ('*14*')'* 

1 ' DOES NOT MATCH EXPECTED BLOCK ('*14*'),') 

GOTO 900 

END 
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Storage Map for Program Unit DISPLA 


Local 1 

Variables* .PSECT 

$BATA* 

Size 

= 000054 

( 22. words) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

FILNO 

1*2 

000012 

I 

1*2 

000044 

IACK 

1*2 

000030 

IBLKCT 

1*2 

000036 

IBLOCK 

1*2 

000046 

ICSUM 

1*2 

000024 

IERROR 

1*2 

000020 

ILEN 

1*2 

000022 

INPUT 

L*1 

000016 

IPNUM 

1*2 

000032 

IREM 

1*2 

000042 

ISIZE 

1*2 

000034 

ITOTBK 

1*2 

000040 

ITYPE 

1*2 

000026 

K 

1*2 

000050 

LERROR 

L*1 

000017 

NUMBER 

1*2 

000004 

OUTDV 

1*2 

000014 

RT 

1*2 

000006 

WT 

1*2 

000010 




COMMON 

Block 

/ /* 

Size = 

003124 

( 810. 

words) 



Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

IDATA 

1*2 

000000 

PROG 

L*1 

001004 

BUFFER 

L*1 

003004 


Local and COMMON Arrays? 


Name 

Type 

Section 

Offset 

Si 

ze 

Dimensions 

BUFFER 

L*1 

.$m. 

003004 

000120 ( 

40.) 

(80) 

IDATA 

1*2 

. $*** ♦ 

000000 

001004 ( 

258.) 

(258) 

PROG 

L*1 

.$$$$. 

001004 

002000 ( 

512.) 

(1024) 


Subroutines* Functions* Statement and Processor-Defined Functions? 

Name Type Name Type Name Type Name Type Name Type 

RECEVE R*4 REQTS R*4 
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Ct*t*tt*t*t*t*****t*tt*t***tt****tt*tt******tt***t*t*****t****t****t***tt*tW 

C 

C MODULE NAME*. 

0001 SUBROUTINE DDIR 

C 

C PURPOSE: ROUTINE TO DISPLAY THE DIRECTORY OF FILES LOCATED 

C ON THE DK5 DISKETTE, 

C 

c input: none 

c 

c processing: reads and decodes directory information, 

C DOES NOT AFFECT DISKETTE DIRECTORY, 

C 

c output: displays dk: diskette directory on minc crt 

C OR PRINTER. 

c 

C CALLED by: CYR02 

c 

C CALLS to: IGETC, LOOKUP, IREADW>ICL0SE,IFREEC>R50ASC, CLOSE 

c 

C SPECIAL INTERFACE REQUIREMENTS: NONE 

C 

C MISCELLANIOUS REQUIREMENTS: DISKETTE ON WHICH DDIR IS ATTEMPTED 


C MUST HAVE HAD A SQUEEZE OPERATION 

C AT LEAST ONCE SINCE ITS CREATION. 

C 

C REVISION HISTORY (REVISE THIS NARRATIVE IF NECESSARY) 

C DATE PROGRAMMER =====CONTACT/ACTION/REMARKS===== 

C 6-25-85 J. KEITH MCELVEEN /SOFTWARE DESIGN AND PROGRAMMED 
C 7-08-85 JKM /NARRATION 

C 7-22-85 JKM /REVISED NARRATION AND PROGRAM 

C 
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C 

0002 

0003 

0004 

C 

C 

C 

0005 

0006 

C 

C 

C 

c 

0007 

0008 


C 

C 

C 

0009 

0010 
0011 

C 

0012 

0013 

0014 

C 

0015 

0016 112 

0017 

0018 113 

0019 

C 

C 

C 

0021 

0022 

C 

c 

c 

0024 

C 

C 

C 

C 

c 

c 

c 

c 


INTEGER*2 DBLK( 4) >RT»UT » ITEMPf I DAY > I YEAR* IMNTH » CNT » B3 
INTEGERS IDATA ( 2048) r BUFFER t BUFFI (16), BUFF2U6 ) 
INTEGER*2 INPUT 

CREATE RAD50 FILE DESCRIPTOR FOR LOOKUP COMMAND 

DATA DBLK /3RDK1*3R »3R >3R / 

DATA IBLK / 6 / 

CREATE MONTH 3-LETTER DISPLAY TABLE TO BE INDEXED BY 
IMNTH. 

INTEGER MNTH( 13*3) 

DATA MNTH / • 060* ■ 1 12 * * 106 * * 1 15 * ’ 101 > ' 1 15* * 1 12* * 1 12 * 

1 , 101» , 123f , 117i 

1 , 116» , 104f , 060» , 141> , 145f , 141» , 160» , 141»'165» , 165» 

1 ' 165f * 145 » ■ 143 » 

1 , 157» , 145» , 060f , 156> , 142»'162» , 162»'171» , 156> , 154> 

1 1 147* 1 160 * * 164 * 

1 ' 166* ' 143/ 

ASSIGN TERMINAL UNIT NUMBER 


WT=7 

RT=5 

0UTDIV=7 


K=1 

LL=1 

NS=0 


WRITE(WT *112) 

FDRMAT(//* ' DO YOU WANT OUTPUT ON PRINTER? (Y or N)> '*$> 
READ(RT*113) INPUT 
FORMAT (A2) 

IF (INPUT .EQ. ' Y' ) 0UTDIV=6 

OBTAIN CHANNEL NUMBER 

ICHAN=IGETC ( ) 

IF (ICHAN.LT. 0) GOTO 1060 

LOOKUP DEVICE AT BLOCK 6 

IF (LOOKUP( ICHAN*DBLK) ,LT ,0) GOTO 1050 

READ (WITH WAIT OPTION) 2048 CHARACTERS STARTING 
AT BLOCK 6 

*****m**MAKE LARGER THAN 2048 IF USING LARGE STORAGE 

DEVICE. WILL NEED TO INCREASE IDATA DIMENSION 
TO NEW SIZE AND CHANGE . . . IREADU(2048* , . . 

TO NEW SIZE . %%%%%%%%%%%%%%%%% 

GOTO 100 IF END OF FILE ENCOUNTERED 
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C 

C 

0026 

0027 

0029 


C 

C 

C 

0031 

0032 


GOTO 200 IF ERROR 

ICQDE=IREADU(2048» I DATA » IBLKj ICHAN) 
IF (ICOOE.EQ.-l) GOTO 100 
IF (ICODE.LT. -1) GOTO 200 

CLOSE AND FREE CHANNEL 

CALL ICLOSE ( ICHAN ) 

CALL IFREEC(ICHAN) 
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0033 


0034 

0036 

0038 

0040 


0042 

0043 


0044 

0045 

0046 

0047 

0048 
004? 


0050 

0051 

0052 

0053 

0054 

0056 

0057 


C 

C SET NUMBER OF HIGHEST SEGMENT=NHS 
C 

NHS=IDATA(3) 

C 

C SEARCH FOR STATUS WORDS 5 
C *002000 PERMANENT FILE 

C *102000 PERMANENT PROTECTED FILE 

C *004000 END OF SEGMENT 

C 

10 IF< IDATA(K) . EQ. *002000) GOTO 20 
IF(IDATA(K).EG. *102000) GOTO 20 
IF(IDATA(K).EQ. *004000) NS=NS+1 
IF(IDATA(K).EG. * 004000. AND .NHS.EQ. NS) GOTO 9?9 
C 

C IF NOT A STATUS WORD INCREMENT K AND TRY AGAIN 
C 

K-Kil 

GOTO 10 
C 

C PUT NEXT THREE WORDS ( 182=FILENAMEf 3RD=EXTENSI0N- 

C IN RAD50 FORMAT) INTO TEMPORARY 

C ARRAY AND CALL CONVERSION (SYSTEM) SUBROUTINE 

C 

20 CONTINUE 

DO 30 L=1 >3 
BUFFI <L)=IDATA(K+L) 

30 CONTINUE 

C 

BUFFI < 4 ) =0 

CALL R50ASC( 10 f BUFFI »BUFF2) 

C 

C DECODE DATE WORD 

C 

K=K+6 

IMNTH=MOD< IDATA(K) >16384) 

IMNTH=IMNTH/1024 
IYEAR=MOD( IDATA(K) >16) 

IF ( IYEAR.NE.O) IYEAR=IYEAR+72 
IDAY=MOD(IDATA(K) » 1024) 

IDAY=IDAY/32 

C 

C OUTPUT (FILENAME. EXT LENGTH DATE) TO OUTPUT DEVICE 

C 


142 


FORTRAN IV 


V02.5-2 


Thu 08-H3a-86 13:26517 


PAGE 005 


0058 


IF (0UTDIV.EQ.6) WRITE* OUTDIV , 300) (BUFF2 ( I ) r 1=1 f 5) , IDATA< K-2 ) , 
1 I DAY , (MNTH( IMNTH+1 , J) » J=1 ,3) » I YEAR 

0060 

300 

p 

FORMAT ( ' + ' »5X»3A2, ' , ' , 2A2»2X, I4,2X»I2,'-',3A1,'-',I2,5X,$) 

0061 


IF (OUTDIV. EQ. 7) WRITE <0UTDIV»301 ) (BUFF2 ( I ) , 1=1 , 5) » IDATA (K-2 ) , 
1 IDAYf (MNTH( IMNTH+1 , J) , J=1 ,3) » I YEAR 

0063 

301 

r 

FORMAT ('%' 1 5X, 3A2, ' ♦ ' , 2A2, 2X, 14 , 2X» 12, '- ' » 3A1 , ' » I2,5X» % ) 

0064 


IF(LL.EQ.2) WRITE( OUTDIV, 310) 

0066 

310 

FORMAT ( '/' ) 

0067 


LL=LL+1 

0068 


IF(LL.EQ,3) LL=1 

0070 

r 

GOTO 10 

0071 

999 

P 

CONTINUE 

0072 

L 

p 

IF (OUTDIV. EQ. 6) CL0SE(UNIT=6 ) 

0074 

L 

p 

GOTO 1000 

0075 

100 

WRITE(WT » 110) 

0076 

110 

FORMAT (//» ' END OF FILE ON READ') 

0077 


GOTO 1000 

0078 

200 

WRITE(WT ,210) 

007 9 

210 

r 

FORMAT (//, ' ERROR ON READ') 

0080 

L 

1000 

WRITE (WT,1010) 

0081 

1010 

FORMAT (//, ' TO CONTINUE PRESS RETURN> ',*) 

0082 


READ (RT , 1020) INPUT 

0083 

1020 

FORMAT (A2) 

0084 

r 

RETURN 

0085 

L- 

1050 

CONTINUE 

0086 


WRITE (WT » 1052) 

0087 

1052 

FORMAT (/, ' BAD LOOKUP ERROR') 

0088 


GOTO 1000 

0089 

c 

1060 

CONTINUE 

0090 


WRITE (WT » 1062) 

0091 

1062 

FORMAT*/, ' CANNOT ALLOCATE CHANNEL ERROR') 

0092 

p 

GOTO 1000 

0093 

U 

END 
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Local 

Variables! .PSECT 

$BATA! 

Size 

= 010332 ( 

2157. words) 


Name 

Tape 

Offset 

Name 

Tape 

Offset 

Name 

Tape 

Offset 

BUFFER 

1*2 

010256 

B3 

1*2 

010254 

CNT 

1*2 

010252 

I 

1*2 

010304 

IBLK 

1*2 

010226 

ICHAN 

1*2 

010274 

ICODE 

1*2 

010276 

IDAY 

1*2 

010244 

IMNTH 

1*2 

010250 

INPUT 

1*2 

010260 

ITEMP 

1*2 

010242 

IYEAR 

1*2 

010246 

J 

1*2 

010306 

K 

1*2 

010266 

L 

1*2 

010302 

LL 

1*2 

010270 

NHS 

1*2 

010300 

NS 

1*2 

010272 

OUTDIV 

R*4 

010262 

RT 

1*2 

010236 

WT 

1*2 

010240 

Local 

and COMHON Arrays 

♦ 

♦ 






Name 

Tape Section 

Offset 

— 

• — Size 

Dimensions 


BUFFI 

1*2 

$ DATA 

010010 

000040 ( 16,) 

(16) 



BUFF2 

1*2 

$DATA 

010050 

000040 ( 16.) 

(16) 



DBLK 

1*2 

$DATA 

000000 

000010 ( 4.) 

(4) 



IDATA 

1*2 

tDATA 

000010 

010000 ( 2048.) 

(2048) 



MNTH 

1*2 

$BATA 

010110 

000116 ( 39.) 

( 13! 3) 




Subroutines! Functions! Statement end Processor-Defined Functions? 


Name 

Tape 

Name 

Tape 

Name 

Tape 

Name 

Tape 

Name 

Tape 

ICLOSE 

1*2 

IFREEC 

1*2 

IGETC 

1*2 

IREADU 

1*2 

LOOKUP 

1*2 

MOD 

1*2 

R50ASC 

R*4 
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C*****4tf******:M*************y**********^************************:M*********$ 

C 

• C MODULE NAME: 

0001 

C 

c purpose: 

c 
c 

c input: 

c 
c 

c processing: 

c 
c 
c 

c output: 

c 

c called by: 

c 

C CALLS to: 

c 
c 

C SPECIAL INTERFACE REQUIREMENTS? NONE 

C 

C REVISION HISTORY (REVISE THIS NARRATIVE IF NECESSARY) 

C DATE PROGRAMMER =====CONTACT/ACTION/REMARKS===== 

C 6-29-85 FRED R, SIAS> JR. (803J-656-3375/DESIGN S PROGRAM 

C 7-22-85 J. KEITH MCELVEEN <803)656-3375/REVISEB PROGRAM/NARR 

q ^ ^ ^ j|^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ j|p ^ ^ ^ ^ ^ ^ j|| ^ ^ j|^ ^ ^ ^ ^ ^ j|^ ^ jjn ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 


SUBROUTINE LIST 

ROUTINE TO LIST ANY SELECTED PROGRAM STORED 
ON THE BKJ DISKETTE 

ACCEPTS PROGRAM NAME FROM MINC KEYBOARD AND 
THEN LOADS SELECTED PROGRAM INTO ARRAY IN MEMORY. 

REQUIRES FORMATTING AND PLACING V AT END 
OF EACH LINE TO GIVE SAME APPEARANCE AS 
ROBOT CONSOLE DISPLAY. 

DISPLAYS PROGRAM ON MINC CRT OR PRINTER. 

CYR02 

BISKRD»SCOPY r INSERT » IRAD50f I GETC j IFETCH* LOOKUP » 
ICLOSE t IFREECf IRE ADU» CLOSE 
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C 


0002 


0003 


0004 


0005 

C 

0006 

C 

0007 


0008 


0009 

C 

0010 


0011 

C 

0012 

10 


C 

0013 

C 

0014 


0015 

100 


C 

0016 


0017 

105 


C 

0018 

C 

0020 


0021 

107 

0022 


0023 

108 

0024 

C 

0026 

120 


C 

0027 

C 

0028 

C 


c— 


c 


c 


c 

0029 


0030 


0032 


0033 


0035 


0036 


0038 

c 

0040 


0041 

170 


INTEGER*2 OUTDV 

BYTE INPUT ? FILNAM( 15) » NAMFIL(7)f ARRAY<5000) f IBUFF<512) 
LOG I CAL * 1 LERROR 
REAL*8 FILE 

COMMON /INOUT/ ARRAYfBPDATA 

CALL SCOPY ( 'DY1 CYR'fFILNAM) 

DATA FILNAM(13) /OO/ 

DATA NAMFIL<7) 700/ 


WT=7 

RT=5 


CONTINUE 

0UTDV=7 

WRITE (WT fIOO) 

FORMAT (///»' Input FILE NAME of program to list.S/. 

1 ' To EXITf press RETURN>.'»*) 

READ (RTf 105) (NAMFIL< I ) f 1 = 1 f 6) 

F0RMAT(6A1 ) 

IF (NAMFIL(l).EQ,' ') RETURN 
WRITE <WTf107> 

FORMAT(//»' Do you want output on printer? <Y or N)> '»$) 
READ ( RT f 108) INPUT 
FORMAT <A1) 

IF (INPUT. EQ.'Y') 0UTDV=6 
CONTINUE 

CALL INSERT (NAMFILfFILNAM»4f6) 

CALL IRAD50(12»FILNAM»FILE) 


OPEN FILE AND READ 
ICHAN=IGETC( ) 

IF (ICHAN.LT. 0) STOP 'NO CHANNEL AVAILABLE' 
IERROR=IFETCH(FILE) 

IF ( IERROR.NE.O) STOP 'BAD FETCH' 
IERR0R=L00KUP(ICHANfFI1.E) 

IF (IERR0R.EQ.-2) GOTO 450 

IF ( IERROR , LT ,0, AND. IERR0R.NE.-2) STOP 'BAD LOOKUP' 

WRITE ( OUTDVf 170 ) (FILNAM(I) » I=l»12) 

FORMAT!' Diskette program name.* ' r!2Alr//) 
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0042 

0043 

0044 


0045 

0046 
0048 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 


0059 

0060 
0062 

0063 

0064 

0065 

0066 
0068 

0069 

0070 

0071 

0072 

0074 

0075 

0076 

0077 

0078 

0079 

0080 
0081 

0083 

0084 

0085 

0086 
0087 


IBL0CK=0 

INDEX=1 

C 

130 CONTINUE 
C 

q -READ DATA 

IERR0R=IREADW(256* I BUFF * I BLOCK? ICHAN ) 

IF (IERROR.LT. -1) STOP 'BAD READ' 

IF (IERROR.EQ.-l) GOTO 140 
DO 135* 1=1*512 
ARRAY ( INDEX )=IBUFF( I ) 

INDEX=INDEX+1 
135 CONTINUE 

IBL0CK=IBL0CK+1 
GOTO 130 
140 CONTINUE 

C 

CALL ICLOSE(ICHAN) 

CALL IFREEC< ICHAN) 

C 

C GET PROGRAM-LENGTH 
C 

DO 150* 1=1*5000 
IF (ARRAY(I) .EQ.O) GOTO 160 
150 CONTINUE 
160 CONTINUE 
ISI2E=I-1 
C 

DO 200* 1=1 > ISIZE 
C 

IF (ARRAY(I) ,EQ. *015) WRITE (0UTDV*182) 

182 FORMAT ('+'*'/'*$) 

C 

WRITE (DUTDV*189) ARRAY(I) 

189 FORMAT ( ' + ' * A1 * $ ) 

C 

200 CONTINUE 
C 

IF (0UTDV.EQ.6) CLOSE (UNIT=6) 

C 

WRITE (WT*500) 

500 FORMAT<//» ' PRESS 'RETURN* TO CONTINUE> ',$) 

READ (RT *510) INPUT 
510 FORMAT ( A1 ) 

C 

RETURN 

450 CALL ICLOSE( ICHAN) 

CALL IFREEC(ICHAN) 

IF (0UTDIV.EQ.6) CL0SE(UNIT=6) 

WRITE ( WT , 455 ) 

455 FORMAT (//* ' FILE NOT FOUND. PRESS 'RETURN' TO TRY AGAIN> '*$> 
READ(RT *510) INPUT 
GOTO 10 
END 
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Storage Map for Program Unit LIST 


Local 

Variables* .PSECT 

$DATA* 

Size 

= 001144 ( 

306. words) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

FILE 

R*8 

001044 

I 

1*2 

001064 

IBLOCK 

1*2 

001072 

ICHAN 

1*2 

001066 

IERROR 

1*2 

001070 

INDEX 

1*2 

001074 

INPUT 

L*1 

001042 

ISIZE 

1*2 

001076 

LERROR 

L*1 

001043 

OUTDIV 

R*4 

001100 

OUTDV 

1*2 

001040 

RT 

R*4 

001060 

WT 

R*4 

001054 







COMMON 

Block 

/INOUT /* ! 

Size = 011614 

( 2502. words) 



Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

ARRAY 

L*1 

000000 

BPDATA 

R*4 

011610 




Local 

and COMMON Arrays 

4 

4 






Name 

Type Section 

Offset 

— 

— Size 

Dimensions 


ARRAY 

L*1 

INOUT 

000000 

011610 ( 2500.) 

(5000) 



FILNAM 

L*1 

$DATA 

000000 

000017 ( 8.) 

(15) 



IBUFF 

L*1 

*DATA 

000026 

001000 ( 256.) 

(512) 



NAMFIL 

L*1 

tDATA 

000017 

000007 ( 4.) 

(7) 




Subroutines* Functions* Statement and Processor-Defined Functions? 


Name 

Type 

Name 

Type 

Name 

Type 

Name 

Type 

Name 

Type 

ICLOSE 

1*2 

IFETCH 

1*2 

IFREEC 

1*2 

IGETC 

1*2 

INSERT 

1*2 

IRAD50 

1*2 

IREADW 

1*2 

LOOKUP 

1*2 

SCOPY 

R*4 




148 


UUuUuOUUuU 


FORTRAN IV 


V02.5-2 


Thu 08-M3y-86 13528544 


PAGE 001 


0001 


C#*##**#*##:|t#:U**#*#******#****#*#**#*#*********************#*##**#****#!m*#* 


C 

c 

c 


MODULE NAME! 

SUBROUTINE RESEQ 

purpose: this subroutine accepts the name of a robot 

PROGRAM STORED ON DISKETTE AND THEN RENUMBERS THE 
COMMAND LINES SO THAT THE PROGRAM STARTS WITH TWO 
COMMENT LINES FOLLOWED BY PROGRAM LINE NUMBERS 
IN STEPS OF TEN. 


INPUT: ACCEPTS PROGRAM FILE NAME FROM THE MINC KEYBOARD 

AND THEN READS THAT PROGRAM FROM THE DISKETTE. 

PROGRAM ASSUMES * .CYR' FILENAME EXTENSION. 


processing: 

output: 

CALLED by: CYR02 

CALLS to: 


REWRITES THE RESEQUENCED PROGRAM TO DISKETTE. 


INSRT r IRAD50>SC0PY » INSERT > IGETC? I FETCH » LOOKUP? 
IREADWr ICLOSEr IURITW 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 

^ ^ ^ ||^ ^ ^ j|| ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ j|j| ^ ^ ^ ^ ^ ^ ^ ^ ^ j|^ ^ ^ ^ ^ ^ ^ ^ ^ j|| j|^ ^ j|^ ^ ^ ^ ^ 


SPECIAL INTERFACE REQUIREMENTS: 


NONE 


REVISION HISTORY 
DATE 
7-20-85 
7-22-85 
5-07-86 


(REVISE THIS NARRATIVE IF NECESSARY) 
PROGRAMMER =====CONTACT/ACTION/REMARKS===== 

J, KEITH MCELVEEN (803)656-3375/SYSTEM DESIGN/PROGRAN 
JKM (803) 656-3375/REVISED NARRATION 

FRS INCREASED ARRAY SIZE 
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C 

0002 BYTE INPUT ? FILNAM( 15 ) ? NAMFIL (7) ? ARRAY (8000) ? 

1 I BUFF (512 ) ? ARRAY 1 (8000) 

0003 L0GICAU1 LERROR 

0004 REAL*8 FILE 

0005 COMMON/INSRT/I ? J?K?L? ARRAY 1? ARRAY? LNUM 
C 

0006 CALL SCOPY < 'DY1 CYR'?FILNAM) 

0007 DATA FILNAM(13) /OO/ 

0008 DATA NAMFIL(7) /OO/ 

C 

0009 WT =7 

0010 RT=5 
C 

0011 10 CONTINUE 

C 

0012 WRITE (WT? 100) 

0013 100 FORMAT (///?' Input FILE NAME of proSrsm to RESEQUENCE,'? 

1 /?' To EXIT? press RETURN> '?*) 

C 

0014 READ (RT ? 105) ( NAMFILU ) ? 1 = 1 ? 6 ) 

0015 105 FORMAT ( 6A1 ) 

C 

0016 IF (NAMFIL( 1 ) ,EQ* ' ') RETURN 
C 

.0018 120 CONTINUE 

C 

0019 CALL INSERT (NAMFIL?FILNAM?4?6) 

C 

0020 CALL IRAD50( 12?FILNAM?FILE) 

C 

0021 WRITE (WT? 170) (FILNAM( I ) ? 1=1 ? 12) 

0022 170 FORMAT ( ' Diskette program ns/neJ '?12A1?//) 

C 

C OPEN FILE AND READ 

C 

0023 ICHAN=IG£TC( ) 

0024 IF (ICHAN.LT, 0) STOP 'NO CHANNEL AVAILABLE' 

0026 IERROR=IF£TCH(FILE) 

0027 IF (IERROR.NE.O) STOP 'BAD FETCH' 

0029 IERROR=LOOKUP(ICHAN?FILE> 

0030 IF (IERR0R.EQ.-2) GOTO 450 

0032 IF ( IERROR.LT , 0. AND , IERROR.NE, -2) STOP 'BAD LOOKUP' 

C 

0034 IBL0CK=0 

0035 INDEX=1 
C 

0036 130 CONTINUE 

C 

C READ DATA 

0037 IERR0R=IREADW(256 ? I BUFF ? IBLOCK? ICHAN) 

0038 IF (IERROR.LT. -1) STOP 'BAD READ' 

0040 IF (IERROR.EQ.-l) GOTO 140 

0042 DO 135? 1 = 1 ? 512 


150 


FORTRAN IV 


V02.5-2 


Thu 08-M3y-86 13 J 28 J 44 


PAGE 003 


0043 

0044 

0045 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 


0056 

0057 

0059 

0060 
0061 


0062 


0063 

0064 

0065 

0067 

0069 

0070 

0071 

0072 

0073 

0074 

0075 


0076 

0077 


0078 

0079 


ARRAY ( INDEX )=IBUFF ( I ) 

INDEX=INDEX+1 

C 

IF (INDEX. GE. 8000) GOTO 2000 
C 

135 CONTINUE 

IBL0CK=IBL0CK+1 
GOTO 130 
140 CONTINUE 

C 

CALL ICLOSE(ICHAN) 

CALL IFREEC(ICHAN) 

C 

1 = 1 
J=1 

LNUM=0 

C 

C CHECK FOR N ON FIRST LINE OF PROGRAM 
C 

L=0 

IF (ARRAY ( 1 ) .NE . * 116) GOTO 900 
CALL INSRT 
J=J+5 
I=I+K-1 
C 

C SET FIRST TIME INDICATOR(L) TO 1 
C 

L=1 

C 

C BEGIN LOOP TO FIND 'LF' FOLLOWED BY 'N' 

700 J=J+1 

1 = 1 + 1 

IF (ARRAY ( I ) iEQ.0) GOTO 800 
C 

IF(ARRAY(I) .EQ. *012. AND. ARRAY (1+1) .EQ. *116) GOTO 710 
ARRAY1 ( J)=ARRAY( I ) 

GOTO 700 
710 CALL INSRT 
J= J+5 
I=I+K-1 
GOTO 700 
800 CONTINUE 

C 

C PUT ZERO AT END OF ARRAY 
ARRAY( J)=0 
ARRAY ( J+l ) =0 
C 

C CALCULATED NUMBER OF WORDS TO OUTPUT 

C 

J=J-1 
JJ= J/2+1 

C OUTPUT TO DISK- 
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C 

0080 ICHAN=IGETC ( ) 

0081 IF (ICHAN.LT. 0) STOP 'NO CHANNEL AVAILABLE' 

0083 IERROR= I FETCH (FILE) 

0084 IF (IERROR.NE.O) STOP ' BAD FETCH' 

0086 IERROR=LOQKUP ( ICHAN * FILE) 

0087 IF (IERROR.LT. 0) STOP ' BAD LOOKUP' 

C 

0089 IERROR=IWRITU(JJ> ARRAY 1 * 0 * I CHAN ) 
C**Jm#:m*************#****##:m*#*******7MAY86 

0090 CALL ICLOSE ( ICHAN) 

0091 CALL IFREEC(ICHAN) 

C 

0092 GOTO 920 

0093 900 URITE(UT*910) 

0094 910 FORMAT ( //* ' FIRST CHARACTER IN FILE TO BE RESEQUENCED 

1 IS NOT AN 'N','*/*' CHECK FILE LISTING.') 

C 

0095 920 CONTINUE 

0096 WRITE(WT*930) 

0097 930 FORMAT*//*' Press RETURN to continue> '*$> 

0098 READ (RT*904> INPUT 

0099 904 FORMAT (14) 

0100 RETURN 
C 

0101 450 CALL ICLOSE( ICHAN) 

0102 CALL IFREEC( ICHAN) 

0103 WRITE(WT *455) 

0104 455 FORMAT*//*' FILE NOT FOUND. PRESS 'RETURN' TO CONTINUE> '*$> 

0105 READ(RT*460) INPUT 

0106 460 FORMAT (A1 ) 

0107 GOTO 10 
C 

0108 2000 CONTINUE 

C 

C PROGRAM TOO LARGE ERROR HANDLING 

C 

0109 CALL ICLOSE ( ICHAN ) 

0110 CALL IFREEC( ICHAN) 

0111 WRITE(WT*2010) NAMFIL 

0112 2010 FORMAT ( ' ',/*' PROGRAM '*14A1*' TOO LARGE TO RESEQUENCE '*// » 

1 ' PRESS 'RETURN* TO CONTINUE> '*$) 

0113 READ (RT *460) INPUT 
C 

0114 END 
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FORTRAN IV Storage Map for Program Unit RESEQ 


Local 

Variables? .PSECT 

f DATA? 

Size 

= 001141 ( 

305. words) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

FILE 

R*8 

001036 

IBLOCK 

1*2 

001062 

ICHAN 

1*2 

001056 

IERROR 

1*2 

001060 

INDEX 

1*2 

001064 

INPUT 

L*1 

001034 

JJ 

1*2 

001066 

LERROR 

L*1 

001035 

RT 

R*4 

001052 

WT 

R*4 

001046 







COMMON 

Block 

/INSRT /? ! 

Size = 037212 

( 8005. words) 



Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

i 

1*2 

000000 

J 

1*2 

000002 

K 

1*2 

000004 

L 

1*2 

000006 

ARRAY1 

L*1 

000010 

ARRAY 

L*1 

017510 

LNUM 

1*2 

037210 







Local 

and COMMON Arrays 

♦ 

♦ 






Name 

Type Section 

Offset 

— 

Size 

Dimensions 


ARRAY 

L*1 

INSRT 

017510 

017500 ( 4000.) 

(8000) 



ARRAY1 

L*1 

INSRT 

000010 

017500 ( 4000.) 

(8000) 



FILNAM 

L*1 

*DATA 

000000 

000017 ( 8.) 

(15) 



IBUFF 

L*1 

♦ DATA 

000026 

001000 ( 256.) 

(512) 



NAMFIL 

L*1 

*DATA 

000017 

000007 ( 4.) 

(7) 




Subroutines? Functions.* Statement and Processor-Defined Functions! 


Name 

Type 

Name 

Type 

Name 

Type 

Name 

Type 

Name 

Type 

ICLOSE 

1*2 

IFETCH 

1*2 

IFREEC 

1*2 

IGETC 

1*2 

INSERT 

1*2 

INSRT 

SCOPY 

1*2 

R*4 

IRAD50 

1*2 

IREADW 

1*2 

IWRITU 

1*2 

LOOKUP 

1*2 
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PAGE 001 


0001 


0002 

0003 

0004 


0005 

0006 
0007 
0009 
0011 


0012 


0013 

0014 
0016 

0017 

0018 

0019 

0020 
0021 
0022 


0023 

0024 


Cttt*ttt*tt*t**t*t**t*ttttt******ttt*t*ttttttttttttt*t*t***t**Mt*ttt**t* 

C 

C MODULE NAME: 

C 

SUBROUTINE INSRT 
C 

C TO INSERT NEW RESEQUENCED LINE NUMBERS 

C 

C CALLED BY? RESEQ 

C 

C CALLS TO: NONE 

C 

C REVISION HISTORY? 

C 

C DATE 

C 7-22-85 J. KEITH MCELVEEN ROUTINE WRITTEN 

C 

c 

COMMON/INSRT/I »J>K»L»ARRAY1 » ARRAY »LNUM 
BYTE ARRAY1 (8000) , ARRAY (8000) > IASC<10) 

C 

DATA IASC /’060> *061 » *062 » *063 » *064 » *065> *066> *067» 

1 *070f *071/ 

C 

LNUM=LNUM+1 
C . 

ARRAY1 ( J) =ARRAY ( I ) 

IF(L.EQ.O) J=0 
IF(L.EQ.O) 1=0 
ARRAY1 ( J+l )= ARRAY ( 1+1 ) 

C 

K=1 

C 

800 K=K+1 

IF ( ARRAY ( I+K) .GE » '060 .AND* ARRAY (I+K) *LE. '071 ) GOTO 800 
I1=INT (LNUM/100* ) 

I2=-1*I1*10+INT (LNUM/10* ) 

1 3=- 1 * ( 1 1 * 1 00+ 1 2* 1 0 ) +LNUM 
C 

ARRAY 1(J+2)=IASC(I1+1) 

ARRAY 1 ( J+3)=IASC( 12+1 ) 

ARRAY 1 (J+4)=IASC(I3+1) 

ARRAY 1 ( J+5 ) = ' 060 
C 

RETURN 

END 
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FORTRAN IV 


Storage Map for Program Unit INSRT 


Local 

Variables* .PSECT 

$DATA* 

Size 

= 000031 

( 13. 

words) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

11 

1*2 

000012 

12 

1*2 

000014 

13 

1*2 

000016 

COMMON 

Block 

/INSRT /, 

Size = 

037212 

( 8005. 

words ) 



Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

I 

1*2 

000000 

J 

1*2 

000002 

K 

1*2 

000004 

L 

1*2 

000006 

ARRAY1 

L*1 

000010 

ARRAY 

L*1 

017510 

LNUM 

1*2 

037210 








Local and COMMON Arrays! 


Name 


Type Section Offset Size Dimensions 


ARRAY L*1 
ARRAY1 L*1 
IASC L*1 


INSRT 017510 017500 ( 4000.) (8000) 
INSRT 000010 017500 ( 4000.) (8000) 
$DATA 000000 000012 < 5.) (10) 


Subroutines* Functions* Statement and Processor-Defined Functions! 


Name Type Name Type Name Type Name Type Name Type 
INT 1*2 
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FORTRAN IV 


V02 * 5-2 
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PAGE 001 


0001 


C 

C MODULE NAME? 

SUBROUTINE MESAGE 
C 

C purpose: 

C 

C THIS ROUTINE ACCEPTS A MESSAGE FROM COMPUTER KEYBOARD 

AND TRANSMITS TO ROBOT FOR DISPLAY ON CONSOLE 


input: 


ACCEPTS MESSAGE FROM MINC KEYBOARD . 


PROCESSING: SETS UP MESSAGE IN ARRAY AND HANDLES 

HANDSHAKING AND TRANSMISSION OF MESSAGE, 

OUTPUT: TRANSMITS MESSAGE TO ROBOT WHERE IT IS 

DISPLAYED ON ROBOT CONSOLE, 

CALLED BY? CYR02 

CALLS TOJ GETLIN> SEND 

SPECIAL INTERFACE REQUIREMENTS.* USES MINC DIGITAL I/O MODULES. 


REVISION HISTORY (REVISE THIS NARRATIVE IF NECESSARY) 

DATE PROGRAMMER =====CONTACT/ACTION/REMARKS===*= 

6-24-84 FRED R. SIASr JR. (803)-656-33?5/SYSTEM DFSIGN/PROGRAM 

6-04-85 FRED R, SIASi JR. /REVISED NARRATION 

^ j. ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ fA* tL ^ ^ ^ Jr ^ '1* ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ df Uf *lr ^ « L \Ji ^ ^ -jL 

^ ^ ^ ^ ^ ^ ^ <1* »p ^ ^ ^ ip ^ ^ qi ip i^i ^ ^ ^ ^ ip ^ ip ^ * ip ip ^ ^ ^ ^ i|» ^ ^ ^ »p ^ ^ p ^ p p p p * ip *p ip p ip *P *p ip ip p ip »|* f 
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PAGE 002 


C 


0002 


BYTE STRING( 254 ) 


0003 


INTEGER*2 I DATA ( 257 ) >RT» WT» INPUT 


0004 

C 

L06I CAL# 1 PROMT (16) 


0005 


DATA PROMT / ' 1/ » ' N ' » ' P ' , 'U ' > ' T ' , ' 




1 'E'»'S'»'S'»'A'f'G'»'E'»'i'i' 

' >00/ 

0006 


RT=5 


0007 


HT=7 


0008 

L 

p 

IDATA(2)=1 


0009 

L 

IDATA(3)=133 



C 


C 


0010 

P 

CALL GTLIN( STRING > PROMT ) 



0011 

L 

LENGTH=LEN (STRING) 



0012 

L 

ILEN=LENGTH+3 



0013 


DO 100 I=4» ILEN 



0014 


IDATA(I)=STRING(I-3) 



0015 

100 

CONTINUE 



0016 

p 

IDATA( 1 )=LENGTH+1 



0017 

L 

p 

CALL SEND ( I ERROR f ILEN > I DATA) 



0018 


IF (IERR0R.EQ.2) WRITE (WTfllO) 



0020 

no 

FORMAT {// >' CHECKSUM ERROR, DATA 

MAY 

BE WRONG.') 

0021 


IF (IERROR.EG.l) WRITE <WT»120> 



0023 

120 

FORMAT (// > ' TIMEOUT ERROR. ROBOT 

DID 

NOT RESPOND.') 

0024 


WRITE (WT> 130) 



0025 

130 

FORMAT (/ j ' TYPE "RETURN* TO CONTINUE) 

• '>$) 

0026 


READ (RT> 140) INPUT 



0027 

140 

P 

FORMAT ( 14 ) 



0028 

L 

RETURN 



0029 


END 




FORTRAN IV 


Storage Map for Program Unit MESAGE 


Local 

Variables* .PSECT 

IDATA* 

Size 

= 001442 < 

401. 

words ) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

I 

1*2 

001436 

IERROR 

1*2 

001440 

ILEN 

1*2 

001434 

INPUT 

1*2 

001430 

LENGTH 

1*2 

001432 

RT 

1*2 

001424 

WT 

1*2 

001426 







Local 

and COMMON Arrays? 







Name 

Type 

Section 

Offset 

— 

— Size 

Dimensions 


IDATA 

1*2 

I DATA 

000376 

001002 ( 257.) 

(257) 



PROMT 

L*1 

IDATA 

001400 

0000 

20 ( 8.) 

(16) 



STRING 

L*1 

IDATA 

000000 

000376 ( 127.) 

(254) 




Subroutines* Functions* Statement and Processor-Defined Functions; 


Name Type Name Type Name Type Name Type Name Type 

GTLIN R*4 LEN 1*2 SEND R*4 
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FORTRAN IV 


V02.5-2 


Thu 08-M3V-86 I 3; 32 I 07 


PAGE 00 1 


0001 


W* ♦ T ^ ^r T ^ * * * T ^ T T ^r * * T* ^T T T * T *• * *• ^ * T T ‘P * T T T T T ^ T T * "T* * * T* T T ^r T T P * * - j ' Jp *• jfv Jyl ^ /fk *p ^ ^ ^ «X* ^ ■# - */* J* ‘7 q* /)% 

c 

C MODULE NAME: 

SUBROUTINE POSIT 
C 

c purpose: 

c 

C THIS ROUTINE REQUESTS THE CURRENT ROBOT POSITION AND 

C AND DISPLAYS ON MINC CRT. 

C 

C INPUT? NONE 

C 

c processing: 

c 

C THE ROUTINE TRANSMITS A REQUEST FOR ROBOT POSITIONS 

C (TYPE CODE 132) WITH THE SINGLE BYTE MESSAGE ZERO (0) THAT 

C INDICATES THAT ONLY ONE RESPONSE PER REQUEST IS DESIRED, 

C THEN THE ROUTINE WAITS FOR A RESPONSE FROM THE ROBOT WHICH 

C SHOULD INCLUDE THE TYPE CODE 4 FOLLOWED BY EIGHTEEN (IS) 

C BYTES OF BINARY DATA THAT CONVEY NINE CURRENT ROBOT POSITIONS. 

EACH POSITION CONSISTS OF TWO SEQUENTIAL BYTES ? LOW-ORDER 
BYTE FIRST FOLLOWED BY THE HIGH-ORDER BYTE. 


OUTPUT: DISPLAYS CURRENT ROBOT POSITION 


CALLED BY: CYR02 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


CALLS to: 

SEND (IERR0R»ILEN»IDATA) 

RECEVE( I ERROR* ILEN> ICSUM » IDATA) 


SPECIAL INTERFACE REQUIREMENTS: USES MINC DIGITAL 1/0 MODULES, 

REVISION HISTORY (REVISE THIS NARRATIVE IF NECESSARY) 

DATE PROGRAMMER =====CONTACT/ACTION/REMARKS===== 

6-26-84 FRED R. SIASj JR. (803)-656-3375/SYSTEM DESIGN 

10-29-84 FRED R. SIAS, JR. /REV. POSITION INTEGER TO REAL 

6-4-85 FRED R. SIAS> JR. /REVISED NARRATION 


CM************************************************************'*********'*'****' 1 / 
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' PAGE 002 


C 

0002 

0003 

0004 

0005 

C 

0006 

0007 

C 

C 

0008 

C 

C 

0009 

C 

C 

0010 

c 

c 

0011 

c 

c 

0012 

0013 

C 

0014 

C 

0016 
0017 2 

C 

00.18 5 

C 
C 
C 

0019 

C 

0020 

0022 10 
C 
C 

C12 

C 

C 

C 

C 

0023 

0025 15 
C 

0026 
0027 


BYTE STRING(254) j INPUT 

REALM IXDATA ? IYDATA?IZDATA?ICXPDS? ICYF'OS ? IBXPOS ? IDYPOS * BATA 
INTEGER*2 IDATAI257) 

LOGICAL#! PROMT (16) 


RT=5 

WT=7 


LENGTH OF MESSAGE 
IBATA ( 1 ) =2 

SETS SEQUENCE NO* TO ZERO 
IDATA(2)=0 

SETS TYPE CODE 
IDATA(3)=132 

SETS RATE TO ONCE PER REQUEST 
IDATA ( 4 ) =0 

NO OF BYTES TO TRANSMIT IN SEND 
ILEN=4 

CALL SEND (I ERROR? ILENtIDATA) 

IF (IERROR. EQ.O) GOTO 5 


WRITE (WT?2) IERROR 

FORMAT ( ' ERROR C0DE'?I4?' RECEIVED FROM SUBR, SEND,") 
CONTINUE 

NOW WAIT FOR MESSAGE TO COME BACK WITH INFO 

CALL RECEVE( IERROR? ILENfICSUM? IDATA) 

IF (IERROR. EQ, 2) WRITE <WT?10) 

FORMAT ( ' CHECKSUM ERROR. DATA MAY BE WRONG!') 

WRITE ( WT ? 12 ) 

FORMAT ( ' PRESS RETURN TO CONTINUE> '?*) 

READ (RT ?210) INPUT 

SHOULD BE MESSAGE TYPE CODE 4 

IF ( IDATA (3) ,NE . 4) WRITE (WT?15) IDATA(3) 

FORMAT ( ' ILLEGAL TYPE CODE '?I2?' RECEIVED') 

IXDATA=IDATA(5) 

DATA=IDATA(4) 


0028 IXDAT A= ( IXDATA#256 , + DATA ) /64 . 

C 

0029 WRITE (WT? 100) IXDATA 

0030 100 FORMAT(' X-3>:is position is '?F6.2?' inches.') 
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PAGE 003 


0031 

0032 

0033 

0034 

110 

P 

IYDATA=IBATA(7) 

IYDATA=(IYBATA*256+IDATA(6) )/64. 

WRITE (WTtllO) IYBATA 

FORMAT ( ' Y - s j £ i s position is ';F6.2;' 

inches . ' ) 

0035 

0036 

0037 

0038 

L 

120 

IZDATA=IDATA(9) 

IZDATA=( IZBATA#256+IDATA(8) )/64 * 

WRITE ( WT ; 120 ) IZDATA 

FORMAT ( ' Z-axis position is ' ;F6.2;' 

inches. ' ) 

0039 

0040 

0041 

0042 

c 

130 

ICXPOS=IBATA( 11 ) 

ICXPOS=( ICXP0S*256+IDATA< 10) )/10 * 

WRITE (WT >130) ICXPOS 

FORMAT(' A-axis is ' ;F6.2;' decrees.') 


0043 

c 

ICYPQS=IDATA ( 13 ) 


0044 

0045 

0046 

140 

C 

ICYP0S=(ICYP0S*256+IDATA(12)>/10. 

WRITE (WT; 140) ICYPOS 

FORMAT ( ' C-sxis is ';F6.2;' decrees,') 


0047 

C 

IDXPOS=IDATA( 15) 


0048 

0049 

0050 

150 

p 

IDXPOS=( IDXP0S#256+IBATA( 14))/10* 

WRITE (WT; 150) IDXPOS 

FORHATf' C positioner; X-3xis is ';F6. 2;' 

decrees, ' ) 

0051 

0052 

0053 

0054 

L 

160 

C 

IBYPOS=IDATA( 17) 

IDYP0S=(IDYP0S*256+IBATA(16) )/10 * 

WRITE (WT ; 160) IDYPOS 

FORMAT(' C positioner? Y-axis is ';F6.2;' 

decrees. ' ) 

0055 

C 

IDXP0S=IBATA(19) 


0056 

0057 

0058 

170 

p 

IDXPOS=( IBXP0S*256+IBATA( 18) )/10» 

WRITE ( WT ; 170 ) IDXPOS 

FORMAT(' D positioner; X-axis is ';F6.2;' 

degrees. ' ) 

0059 

0060 
0061 
0062 

L 

180 

p 

IDYP0S=IDATA(21 ) 

IDYPOS=( IDYP0S*256+IDATA(20) )/10. 

WRITE ( WT ; 180 ) IDYPOS 

FORMAT(' D positioner; Y-axis is ';F6.2;' 

degrees. ' ) 

0063 

0064 

c 

200 

WRITE ( WT ; 200 ) 

FORMAT (//; ' CARRIAGE RETURN TO CONTINUF> 

';$) 

0065 

0066 

210 

READ (RT ; 210 ) INPUT 
FORMAT ( 14 ) 


0067 

0068 


RETURN 

END 



161 


FORTRAN IV Storage Map for Program Unit POSIT • 


Local 

Variables* .PSECT 

IDATA* 

Size 

= 001534 ( 

430. words) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name 

Type 

Offset 

DATA 

R*4 

001456 

ICSUM 

1*2 

001476 

ICXPOS 

R*4 

001436 

ICYPOS 

R*4 

001442 

IDXPOS 

R*4 

001446 

IDYPOS 

R*4 

001452 

IERROR 

1*2 

001474 

ILEN 

1*2 

001472 

INPUT 

L*1 

001420 

IXDATA 

R*4 

001422 

IYDATA 

R*4 

001426 

IZDATA 

R*4 

001432 

RT 

R*4 

001462 

WT 

R*4 

001466 




Local 

and COMMON Arrays 

♦ 

♦ 






Name 

Type 

* Section 

Offset 

— 

— Size 

Dimensions 


IDATA 

1*2 

IDATA 

000376 

001002 < 257.) 

(257) 



PROMT 

L*1 

IDATA 

001400 

0000 

20 ( 8.) 

(16) 



STRING 

L*1 

IDATA 

000000 

000376 < 127.) 

(254) 




Subroutines * Functions* Statement arid Processor-Defined Functions 5 


Name Type Name Type Name Type Name Type Name Type 

RECEVE R*4 SEND R*4 
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FORTRAN IV 


V02.5-2 


Thu 08-M5S-86 13J32M0 


PAGE 001 


0001 


c*ttt*t***tttttt***t*********t**t**t**tttt****tt**t$xt****tt*%***tt*%xt*tt*tt% 

c 

C MODULE NAME: 

SUBROUTINE PARS 

purpose: 

THIS ROUTINE REQUESTS THE CURRENT ROBOT PARAMETERS AND 
AND DISPLAYS THEM ON MINC CRT, 


input: 


NONE 


PROCESSING: SETS UP REQUEST MESSAGE AND TRANSMITS, 

SCALES DATA RETURNED AND FORMATS, 

OUTPUT 4 , DISPLAYS PARAMETERS ON THE MINC CRT, 

CALLED BY: CYR01 

CALLS TO? SEND* RECEVE 

SPECIAL INTERFACE REQUIREMENTS? 


USES MINC DIGITAL I/O MODULES, 


REVISION HISTORY (REVISE THIS NARRATIVE IF NECESSARY) 

DATE PROGRAMMER ‘ =====CONTACT/ACTION/REMARKS===== 

6-27-84 FRED R. SIAS> JR, (803)-656-3375/DESIGN AND PROGRAM 

6-04-85 FRED R, SIAS» JR, /REVISED NARRATION 


^ ^ ^ ^ ^ 4 ^ 'Jf ^ W ^ ^ ^ ^ ^ dp ^ ^ ^ ^ ^ dp dp ^ ^ ^ ^ d* ^ ^ ^ ^ 

^ T T T 1 ^ * < T* T * T T 'r ' r * T T 1 T T T '* T T T T 
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PAGE 002 


0002 

0003 

0004 

0005 

0006 
0007 


0008 


0009 

0010 
0011 


0012 

0013 


0014 

0015 
0017 


0018 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 


C 


C 


C 

C 

C 

c 

c 

c 

c 


c 

c 

c 

c 

10 

c 

c 

c 

c 

15 

c 


101 

100 


110 

c 


c 


120 

c 


BYTE STRING ( 254 ) 

INTEGERS IBATAC257) 

REAL*4 IXDATA>IYDATA>IZBATA>ICXPOS 
LOGICAL*! PROMT (16) 


RT=5 
WT =7 


SETS SEQUENCE NO * TO ZERO 
IDATA(2)=0 

REQUEST CODE FOR SYSTEM PARAMETERS 
IDATA(3) =138 

IDATA ( 1 ) =2 

IDATA ( 4 ) =0 

ILEN=4 

CALL SENDdERRORf ILENf IDATA) 

NOW WAIT FOR MESSAGE TO COME BACK WITH INFO 

CALL RECEVE ( IERROR » ILEN » ICSUM> IDATA ) 

IF (IERROR, EQ. 2) WRITE (WTflO) 

FORMAT ( ' CHECKSUM ERROR. DATA MAY BE WRONG!') 


SHOULD BE MESSAGE TYPE CODE 7 

IF (IDATA(3) .NE.7) WRITE <WT»15> IDATAC3) 

FORMAT ( ' ILLEGAL TYPE CODE '»I2»' RECEIVED') 

IXDATA=IDATA<5) 

IXDATA=(IXDATA*256+IDATA(4))/64, 

WRITE (WT > 101 ) 

FORMAT (4H0***,//> 

WRITE (WT>100) IXDATA 

FORMAT(' Torch feed rate is '»F6.2»' inches per minute,') 
IYDATA=IDATA(7) 

IYDATA= ( I YDATA*256+IDATA ( 6 ) )/64 . 

WRITE ( UTf 1 10) IYDATA 

FORMAT(' Wire feed rate is '»F6.2»' inches per minute.') 

IZDATA=IDATA(9) 

IZDATA=IZDATA*256+IDATA (8) 

ONE BIT EQUALS .1 PERCENT 
IZDATA=IZDATA/10, 

WRITE ( WT » 120 ) IZDATA 

FORMAT(' Weld level is '»F6.2»' Percent.') 

ICXPOS=IDAT A ( 1 1 ) 
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PAGE 003 


0037 

C 

0038 


003? 


0040 

130 


C 

0041 


0043 


0045 


0047 

C 

0049 

140 

0050 

150 

0051 

160 

0052 

170 


C 

0053 


0054 

200 

0055 


0056 

210 

0057 


0058 



ICXP0S=ICXP0S*256+IDATA(10> 

ONE BIT EQUALS ,1 PERCENT 
ICXP0S=ICXP0S/10, 

WRITE (WT? 130) ICXPOS 

FORMAT ( ' AVC/ACC Setpoint Level ' »F6,2?' percent,') 

IF ( IBATA ( 12 > * EQ , 0 ) WRITE <WT?140) 

IF < IDATA( 12) .EQ. 1 ) WRITE < UT » 150 ) 

IF ( IDAT A ( 12 ) , EQ . 2 ) WRITE C WT p 160 ) 

IF ( IDATA ( 12 ) , GT , 2 ) WRITE < WTp 170 ) I0ATA(12) 

FORMAT(' No Oscillation h3s occured,') 

F0RMAT(' Left Oscillation has occured.') 

FORMAT(' Risht Oscillation has occured.') 

FORMAT ( ' ILLEGAL OSCILLATION CODE '» 18?' RECEIVED,') 

WRITE (WT p 200 ) 

FORMAT <//> ' CARRIAGE RETURN TO CONTINUE> '?$> 

READ (RT? 210) INPUT 
FORMAT (14) 

RETURN 

END 
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FORTRAN IV Storage Map for Program Unit PARS 


Local 

Variables? .PSECT 

$DATA? 

Size 

= 001522 ( 

425. words) 


Name 

Type 

Offset 

Name 

Type 

Offset 

Name Type 

Offset 

ICSUM 

1*2 

001454 

ICXPOS 

R*4 

001434 

IERROR 1*2 

001452 

ILEN 

1*2 

001450 

INPUT 

1*2 

001456 

IXDATA R*4 

001420 

IYDATA 

R*4 

001424 

IZDATA 

R*4 

001430 

RT R*4 

001440 

WT 

R*4 

001444 






Local 

and COMMON Arrays 

4 

4 





Name 

Type 

1 Section 

Offset 

— 

—Size 

Dimensions 


IDATA 

1*2 

$DATA 

000376 

001002 ( 257.) 

(257) 


PROMT 

L*1 

fDATA 

001400 

000020 < 8.) 

(16) 


STRING 

L*1 

$DATA 

000000 

000376 ( 127.) 

(254) 



Subroutines? Functions? Statement 3 nd Processor-Defined Functions} 

Name Type Name Type Name Type Name Type Name Type 

RECEVE R*4 SEND R*4 
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C 

C MODULE NAME: 

0001 SUBROUTINE EDITOR 
C 

C PURPOSE? TO EDIT NUMERICAL CONTROL PROGRAMS ON DISKETTE 
C 

C INPUT: FILES FROM DISKETTE AND EDITING COMMANDS FROM CRT 

C 

c processing: this routine MERELY transfers control to the operating 

C SYSTEM SO THAT THE SYSTEM EDITOR MAY BE USED TO 

C MODIFY FILES. WHEN EDITING IS COMPLETE CYR02 MUST 

C AGAIN BE CALL FROM THE SYSTEM PROMPT. 

C 

C OUTPUT.* FILES RETURNED TO DISKETTE 

C . 

C CALLED BY? CYR02 

C 

C CALLS TO? RETURNS TO RT-11 

C 

C SPECIAL INTERFACE REQUIREMENTS! NONE 

C 

C REVISION HISTORY (REVISE THIS NARRATIVE IF NECESSARY) 

C DATE PROGRAMMER =====CONTACT/ACTION/RENARKS===== 

C ll-JUL-85 FRED R. SIAS? JR. <803)-656-3375/NARRATIQN 

C 3-SEP-85 FRED R, SIAS? JR. MERELY RETURNS TO SYSTEM FOR EDITOR 
C 

)|k ]|[ jff ^ ^ )|l )|[ )(^ )|f )|[ }|c ]|l )|( )|[ )|l )|[ )|l ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ /fk )|[ jjk ^ ^ )|k ^ 

C 

0002 INTEGER RT?WT 

0003 INTEGERK2 INPUT 
C 

0004 WT=7 

0005 RT=5 
C 

0006 WRITE (WT? 100) 

0007 100 FORMAT ( ' This csll merely returns you to the operating system' ?/? 

1 ' from which you msy csll the standard editor. After editing' ?/? 

2 ' your numerical control program? ssain execute CYR02 to'* 

3 ' continue.'?//? 

4 ' DO YOU WISH TO EXIT TO THE OPERATING SYSTEM? (Y OR N)> '?*) 

C 


0008 

READ ( RT ? 200 ) INPUT 

0009 200 

FORMAT (A2) 

C 


0010 

IF (INPUT, EQ. 'Y') S 

0012 

RETURN 

0013 

END 
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FORTRAN IV Storage Map for Program Unit EDITOR 

Local Variables* .PSECT $DATA* Size = 000006 ( 3. words) 

Name Tape Offset Name Tape Offset Name Tape 

INPUT 1*2 000004 RT 1*2 000000 WT 1*2 


Offset 

000002 
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FORTRAN IV 


V02.5-2 


Thu Oe-Msy-86 13133:26 


PAGE 001 


0001 


0002 

0003 

0004 

0005 

0006 
0007 


0008 

0009 

0010 
0012 

0013 

0014 

0015 


C 

C MODULE NAME? 

SUBROUTINE PARK 


purpose: 


input: 


MENU SELECTION TO 'PARK' THE PROGRAM WHERE 
IT WILL IGNORE ALL SPURIOUS MESSAGES FROM ROBOT. 

ANY KEY PRESS TO EXIT ENDLESS LOOP. 


processing: executes receve continuously in an endless loop. 

HANDLES ALL COMMUNICATIONS HANDSHAKING. 

EXITS WHEN ANY KEY PRESSED. 


MESSAGES TO CRT. 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 

p rff tk ^ ^ d# df df df ^ df df ik df ^ <k (L df OLf ^ X dr dU <dU ^ ^ ^ X dp dp dL dp dp dLr ^ dp ^ tk dp ^ dp dp ^ ^ ^ ^ dr dp dp ^ dr db df lip dp d/ dp dp »k dp >ir dp dp ^ k d# yip *Af dp -Ip 

|g» ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ *« ^ ^ ^ ^ <p ^ ^ ^ ^ * *• t T f *r * t ^ t ^ ^ * * * * ^ ^ ^ * * *p * *r * p 'P *p * *■ - r ** «p 

c 

INTEGER RT »WT 
C 

C 


OUTPUT.* 

CALLED BY: CYR02 

CALLS TO? RECEVE 

SPECIAL INTERFACE REQUIREMENTS: 


NONE 


REVISION HISTORY (REVISE THIS NARRATIVE IF NECESSARY) 

DATE PROGRAMMER =====C0NTACT/ACTI0N/REMARKS= 

9-6-85 FRED R. SIAS» JR. (803)-656-3375/PR0GRAMME0 


INTEGER*2 INPUT 


WT=7 

RT=5 

C 

WRITE ( WT 1 1005 ) 

1005 FORMAT ( ' 't/t' Program is now ‘Parked* in an endless 1oop'?/j 

1 ' that will isnore all messages from Robot.'?//f 

2 ' PRESS ANY KEY TO RETURN TO MENU.> ' ti) 

C 

2000 CONTINUE 

CALL RECEVE ( I ERROR? ILENj ICSUM> I DATA) 

IF (IERR0R.EQ.1) GOTO 9000 
GOTO 2000 
C 

9000 CONTINUE 
RETURN 
END 
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FORTRAN IV Storage Mbp for Program Unit PARK 

Local Variables* .PSECT $BATA* Size = 000016 ( 7. words) 

Name Type Offset Name Type Offset Name Type Offset 

ICSUM 1*2 000012 IDATA 1*2 000014 IERROR 1*2 000006 

ILEN 1*2 000010 INPUT 1*2 000004 RT 1*2 000000 

WT 1*2 000002 

Subroutines* Functions* Statement and Processor-Defined Functions! 

Name Type Name Type Name Type Name Type Name Type 
RECEVE R*4 
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FORTRAN IV 


V02.5-2 


Thu 08-M 3 y-86 13:33555 


PAGE 001 


0001 


0002 

0003 

0004 

0005 

0006 
0007 


0008 

0009 

0010 
0012 
0013 


C 

C MODULE NAME: 

SUBROUTINE INTER 


purpose: 


THIS MODULE HANDLES COMMUNICATIONS BETWEEN THE 
MINC AND THE INTERGRAPH SYSTEM , 

THE MAIN PURPOSE IS TO DOWN LOAD ROBOT N/C PROGRAMS 
THAT HAVE BEEN CREATED ON THE INTERGRAPH SYSTEM 
AND STORE THEM ON THE MINC DISKETTE. 


input: 


INTERACTIVE 
PROGRAM DOWNLOADING 
HANDSHAKING. 


CONTROL FROM THE 
FROM INTERGRAPH * 


KEYBOARD* 

INCLUDING 


AND 


processing: program verification, 


STORES DOWNLOADED PROGRAM ON DKJDISKETTE. 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

C 

^ ^ ^ ^ 4 ^ ^ ^ dr ^ ^ ^ ^ dr ^ ^ ^ 4 ^ df ^ ^ ^ ^ 4 4 1 W dr ^ dr dr ■d d ^ ^ dr dr dr 

^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ T T T T ^ ^ ^ ^ ^ ^ ^ ^ ^ *p ^ ^ v ^ * T *P T T ^ ^ ^ ^ ^ ^ ^ T T * T *P T m * T * T T ip * if Jp T ^ ^ 

c 

INTEGER RT*WT 


output: 


CALLED BY: CYR02 


CALLS to: 


RETURNS TO RT-11 


SPECIAL INTERFACE REQUIREMENTS: 


SERIAL COMMUNICATIONS PORT, 


REVISION 
DATE 
5-31-85 . 
1 - 10-86 


HISTORY 


(REVISE THIS NARRATIVE IF NECESSARY) 
PROGRAMMER =====CONTACT/ACTION/REMARKS===~ 

FRED R, SIAS * JR. <B03)-656-3375/SYSTEM DESIGN 

DAIVD A. STILES FINSHED SUBROUTINE RETURNS TO RT-11 


INTEGERS INPUT 

WT =7 
RT=3 


WRITE (WT* 100 ) 

100 FORMAT ( ' This call 

1 ' from which you 

2 ' your numerical 

3 ' continue.'*//* 

4 ' DO YOU WISH TO 


merely returns you to the operating system'*/* 
may run vtcom.rel to do the downloading of'*/* 
control program* again execute CYR02 to'* 

EXIT TO THE OPERATING SYSTFM? (Y OR N» '*$) 


200 

C 


READ (RT *200) 
FORMAT ( A2) 


INPUT 


IF (INPUT. EQ. 'Y') 

RETURN 

END 


STOP 
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FORTRAN IV 


Storage Map for Program Unit INTER 


Local Varia 

Name Type 
INPUT 1*2 


es> .PSECT 

Offset 

000004 


$DATA» Size 

Name Type 
RT 1*2 


= 000006 ( 

Offset 

000000 


3. words) 

Name Type 
UT 1*2 


Offset 

000002 
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